/ MacWorld 1995 May / Macworld CD-ROM (May 1995).cdr / Demos / Graphics / MiniCad 5.0 / Mechanical / MiniPascal Commands / Nuts & Bolts

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 4e 75 74 73 20 26 | 20 42 6f 6c 74 73 00 00 |..Nuts &| Bolts..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 4d 43 2b 34 43 44 50 | 33 00 00 00 00 00 00 00 |.MC+4CDP|3.......|
|00000050| 00 00 00 00 00 cb 6f 00 | 00 13 56 a9 c0 ac 64 a9 |......o.|..V...d.|
|00000060| c7 42 d3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.B......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 21 f5 00 00 |........|....!...|
|00000080| 00 00 08 18 00 00 00 00 | 01 aa 58 f4 00 20 00 00 |........|..X.. ..|
|00000090| 00 41 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.A......|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 01 aa 71 10 01 aa |........|....q...|
|000000b0| 6b 4c 00 00 00 00 00 28 | 02 01 0a 0c fa 10 fb 82 |kL.....(|........|
|000000c0| 05 f0 04 7e 3f fe 80 c5 | 9c a3 45 09 22 f2 80 00 |...~?...|..E."...|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 40 05 90 00 00 00 | 00 00 00 00 40 05 90 00 |..@.....|....@...|
|000000f0| 00 00 00 00 00 00 00 33 | 00 0f 01 a6 02 33 40 02 |.......3|.....3@.|
|00000100| a3 e6 84 de 63 67 09 63 | 40 02 f2 18 76 f9 d2 ff |....cg.c|@...v...|
|00000110| b2 c8 01 00 01 00 01 01 | 01 00 00 03 00 00 01 2c |........|.......,|
|00000120| 01 2c 00 00 00 00 0b e0 | 08 fc ff 7e ff 83 0c 62 |.,......|...~...b|
|00000130| 09 79 03 67 05 28 03 fc | 00 02 00 00 01 2c 01 2c |.y.g.(..|.....,.,|
|00000140| 00 00 00 00 0b e0 08 fc | 00 01 00 00 00 64 00 00 |........|.....d..|
|00000150| 00 01 00 01 01 01 00 00 | 00 01 27 0f 00 01 00 01 |........|..'.....|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 0a 00 19 |........|........|
|00000170| 01 90 00 00 00 00 00 40 | 00 00 00 00 00 00 00 00 |.......@|........|
|00000180| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 05 00 00 00 00 | 00 00 01 aa 56 dc 01 2c |........|....V..,|
|000001a0| 01 2c 01 01 00 01 00 01 | 00 00 00 00 3f fe 80 c5 |.,......|....?...|
|000001b0| 9c a3 45 09 22 f2 01 aa | 81 44 01 aa 69 dc 01 a9 |..E."...|.D..i...|
|000001c0| cb b8 01 a9 ca f0 01 aa | 09 60 01 aa 70 80 01 a9 |........|.`..p...|
|000001d0| cb 9c 01 aa 70 28 01 aa | 06 94 01 aa 6e cc 01 a9 |....p(..|....n...|
|000001e0| cb 80 01 aa 69 d0 01 aa | 07 a0 01 aa 6e e4 01 a9 |....i...|....n...|
|000001f0| cb 64 01 a9 cb 48 01 aa | 71 8c 01 aa 81 34 01 aa |.d...H..|q....4..|
|00000200| 2d 90 01 aa 2c 24 01 aa | 71 88 01 aa 71 50 01 aa |-...,$..|q...qP..|
|00000210| 6e 9c 01 aa 6b 08 01 aa | 08 74 01 a9 ce 6c 01 a9 |n...k...|.t...l..|
|00000220| ce 80 01 aa 6a ec 01 a9 | ce 9c 01 aa 16 58 01 a9 |....j...|.....X..|
|00000230| ce b8 01 aa 28 bc 01 a9 | ce d4 01 aa 6a d8 01 a9 |....(...|....j...|
|00000240| ce f0 01 aa 0e c0 00 0f | 42 40 00 00 3f ff 80 00 |........|B@..?...|
|00000250| 00 00 00 00 00 00 06 49 | 6e 63 68 65 73 20 26 20 |.......I|nches & |
|00000260| 49 6e 63 68 00 00 00 00 | 00 00 00 00 01 22 00 00 |Inch....|....."..|
|00000270| 00 00 00 00 00 00 00 27 | 00 00 00 00 00 00 00 00 |.......'|........|
|00000280| 00 2d 00 00 00 00 00 00 | 00 00 00 01 06 20 73 71 |.-......|..... sq|
|00000290| 20 69 6e 00 00 00 00 00 | 00 00 00 00 00 01 09 20 | in.....|....... |
|000002a0| 63 75 62 69 63 20 69 6e | 00 00 00 00 00 00 00 01 |cubic in|........|
|000002b0| 00 00 03 e8 70 00 00 00 | 00 00 00 00 00 00 00 00 |....p...|........|
|000002c0| 27 10 01 aa 71 10 00 00 | 04 80 00 00 00 00 00 00 |'...q...|........|
|000002d0| 00 00 00 28 00 3b 01 dd | 02 7d 00 00 00 00 00 00 |...(.;..|.}......|
|000002e0| 00 05 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 12 00 03 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 ff 00 ff 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 01 aa 53 cc 00 00 |........|....S...|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 07 |........|........|
|00000890| a1 20 01 aa 58 f4 00 00 | 00 00 0d 64 05 79 2c a4 |. ..X...|...d.y,.|
|000008a0| 00 00 00 00 00 1e 00 00 | 00 40 00 08 01 02 3f fb |........|.@....?.|
|000008b0| aa a8 00 00 00 00 00 00 | 00 00 0a aa 00 00 15 55 |........|.......U|
|000008c0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000008d0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000008e0| 3f fb aa a8 00 00 00 00 | 00 00 00 00 00 00 00 01 |?.......|........|
|000008f0| ff e0 00 00 00 00 00 05 | ff e8 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 01 02 3f fc 8e 38 |........|....?..8|
|00000940| 00 00 00 00 00 00 00 00 | 18 e3 00 00 23 8e 00 00 |........|....#...|
|00000950| 23 8e 00 00 23 8e 00 00 | 23 8e 00 00 23 8e 00 00 |#...#...|#...#...|
|00000960| 23 8e 00 00 23 8e 00 00 | 23 8e 00 00 23 8e 3f fc |#...#...|#...#.?.|
|00000970| 8e 38 00 00 00 00 00 00 | ff fd 7a be 00 00 00 00 |.8......|..z.....|
|00000980| ff fa f8 50 00 00 00 00 | 00 00 00 00 00 00 00 00 |...P....|........|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 00 00 00 00 | 01 02 3f fd 80 00 00 00 |........|..?.....|
|000009d0| 00 00 00 00 00 00 35 55 | 00 00 40 00 00 00 40 00 |......5U|..@...@.|
|000009e0| 00 00 40 00 00 00 40 00 | 00 00 40 00 00 00 40 00 |..@...@.|..@...@.|
|000009f0| 00 00 40 00 00 00 40 00 | 00 00 40 00 3f fd 80 00 |..@...@.|..@.?...|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 00 0d ff f8 00 00 |........|........|
|00000a10| 00 00 00 12 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 01 02 | 3f fd 9c 70 00 00 00 00 |........|?..p....|
|00000a60| 00 00 00 00 43 8e 00 00 | 4e 38 00 00 4e 38 00 00 |....C...|N8..N8..|
|00000a70| 4e 38 00 00 4e 38 00 00 | 4e 38 00 00 4e 38 00 00 |N8..N8..|N8..N8..|
|00000a80| 4e 38 00 00 4e 38 00 00 | 4e 38 3f fd 9c 70 00 00 |N8..N8..|N8?..p..|
|00000a90| 00 00 00 00 00 00 00 00 | 00 12 00 00 00 00 00 00 |........|........|
|00000aa0| 00 15 ff c0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 01 02 3f fa | aa a0 00 00 00 00 00 00 |......?.|........|
|00000af0| 00 00 03 8e 00 00 0a aa | 00 00 0a aa 00 00 0a aa |........|........|
|00000b00| 00 00 0a aa 00 00 0a aa | 00 00 0a aa 00 00 0a aa |........|........|
|00000b10| 00 00 0a aa 00 00 0a aa | 3f fa aa a0 00 00 00 00 |........|?.......|
|00000b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 02 |........|........|
|00000b30| ff d0 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 01 04 3f fc d5 54 | 00 00 00 00 00 00 00 00 |....?..T|........|
|00000b80| 20 00 00 00 2a aa 00 00 | 2e 38 00 00 35 55 00 00 | ...*...|.8..5U..|
|00000b90| 35 55 00 00 35 55 00 00 | 35 55 00 00 35 55 00 00 |5U..5U..|5U..5U..|
|00000ba0| 35 55 00 00 35 55 3f fc | d5 54 00 00 00 00 00 00 |5U..5U?.|.T......|
|00000bb0| 00 00 00 00 00 08 00 10 | 00 00 00 00 00 0b ff d0 |........|........|
|00000bc0| 00 00 00 00 00 0b ff d0 | 00 00 00 00 00 0e ff e8 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 01 06 3f fd c0 00 00 00 | 00 00 00 00 00 00 20 00 |..?.....|...... .|
|00000c10| 00 00 2a aa 00 00 4a aa | 00 00 55 55 00 00 58 e3 |..*...J.|..UU..X.|
|00000c20| 00 00 60 00 00 00 60 00 | 00 00 60 00 00 00 60 00 |..`...`.|..`...`.|
|00000c30| 00 00 60 00 3f fd c0 00 | 00 00 00 00 00 00 00 00 |..`.?...|........|
|00000c40| 00 00 00 08 00 10 00 00 | 00 00 00 0b ff d0 00 00 |........|........|
|00000c50| 00 00 00 13 ff e0 00 00 | 00 00 00 17 ff e8 00 00 |........|........|
|00000c60| 00 00 00 17 ff e8 00 00 | 00 00 00 1b 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 06 |........|........|
|00000c90| 3f fd 80 00 00 00 00 00 | 00 00 00 00 20 00 00 00 |?.......|.... ...|
|00000ca0| 2a aa 00 00 2e 38 00 00 | 35 55 00 00 38 e3 00 00 |*....8..|5U..8...|
|00000cb0| 40 00 00 00 40 00 00 00 | 40 00 00 00 40 00 00 00 |@...@...|@...@...|
|00000cc0| 40 00 3f fd 80 00 00 00 | 00 00 00 00 00 00 00 00 |@.?.....|........|
|00000cd0| 00 08 00 10 00 00 00 00 | 00 0b ff d0 00 00 00 00 |........|........|
|00000ce0| 00 0b ff d0 00 00 00 00 | 00 0e ff e8 00 00 00 00 |........|........|
|00000cf0| 00 0e ff e8 00 00 00 00 | 00 12 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 02 3f fb |........|......?.|
|00000d20| aa a8 00 00 00 00 00 00 | 00 00 0a aa 00 00 15 55 |........|.......U|
|00000d30| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000d40| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000da0| 00 00 00 00 00 00 00 00 | 00 00 01 02 3f fb aa a8 |........|....?...|
|00000db0| 00 00 00 00 00 00 00 00 | 0a aa 00 00 15 55 00 00 |........|.....U..|
|00000dc0| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00000dd0| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 00 00 00 00 00 00 00 | 01 02 3f fb aa a8 00 00 |........|..?.....|
|00000e40| 00 00 00 00 00 00 0a aa | 00 00 15 55 00 00 15 55 |........|...U...U|
|00000e50| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000e60| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 00 00 |...U...U|...U....|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 01 02 | 3f fb aa a8 00 00 00 00 |........|?.......|
|00000ed0| 00 00 00 00 0a aa 00 00 | 15 55 00 00 15 55 00 00 |........|.U...U..|
|00000ee0| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00000ef0| 15 55 00 00 15 55 00 00 | 15 55 00 00 00 00 00 00 |.U...U..|.U......|
|00000f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 01 02 3f fb | aa a8 00 00 00 00 00 00 |......?.|........|
|00000f60| 00 00 0a aa 00 00 15 55 | 00 00 15 55 00 00 15 55 |.......U|...U...U|
|00000f70| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00000f80| 00 00 15 55 00 00 15 55 | 00 00 00 00 00 00 00 00 |...U...U|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 01 02 3f fb aa a8 | 00 00 00 00 00 00 00 00 |....?...|........|
|00000ff0| 0a aa 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.....U..|.U...U..|
|00001000| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001010| 15 55 00 00 15 55 00 00 | 00 00 00 00 00 00 00 00 |.U...U..|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 01 02 3f fb aa a8 00 00 | 00 00 00 00 00 00 0a aa |..?.....|........|
|00001080| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00001090| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000010a0| 00 00 15 55 00 00 00 00 | 00 00 00 00 00 00 00 00 |...U....|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 02 |........|........|
|00001100| 3f fb aa a8 00 00 00 00 | 00 00 00 00 0a aa 00 00 |?.......|........|
|00001110| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001120| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001130| 15 55 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.U......|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 02 3f fb |........|......?.|
|00001190| aa a8 00 00 00 00 00 00 | 00 00 0a aa 00 00 15 55 |........|.......U|
|000011a0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000011b0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001210| 00 00 00 00 00 00 00 00 | 00 00 01 02 3f fb aa a8 |........|....?...|
|00001220| 00 00 00 00 00 00 00 00 | 0a aa 00 00 15 55 00 00 |........|.....U..|
|00001230| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001240| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012a0| 00 00 00 00 00 00 00 00 | 01 02 3f fb aa a8 00 00 |........|..?.....|
|000012b0| 00 00 00 00 00 00 0a aa | 00 00 15 55 00 00 15 55 |........|...U...U|
|000012c0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000012d0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 00 00 |...U...U|...U....|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 01 02 | 3f fb aa a8 00 00 00 00 |........|?.......|
|00001340| 00 00 00 00 0a aa 00 00 | 15 55 00 00 15 55 00 00 |........|.U...U..|
|00001350| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001360| 15 55 00 00 15 55 00 00 | 15 55 00 00 00 00 00 00 |.U...U..|.U......|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 01 02 3f fb | aa a8 00 00 00 00 00 00 |......?.|........|
|000013d0| 00 00 0a aa 00 00 15 55 | 00 00 15 55 00 00 15 55 |.......U|...U...U|
|000013e0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|000013f0| 00 00 15 55 00 00 15 55 | 00 00 00 00 00 00 00 00 |...U...U|........|
|00001400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 01 02 3f fb aa a8 | 00 00 00 00 00 00 00 00 |....?...|........|
|00001460| 0a aa 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.....U..|.U...U..|
|00001470| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001480| 15 55 00 00 15 55 00 00 | 00 00 00 00 00 00 00 00 |.U...U..|........|
|00001490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014e0| 01 02 3f fb aa a8 00 00 | 00 00 00 00 00 00 0a aa |..?.....|........|
|000014f0| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00001500| 00 00 15 55 00 00 15 55 | 00 00 15 55 00 00 15 55 |...U...U|...U...U|
|00001510| 00 00 15 55 00 00 00 00 | 00 00 00 00 00 00 00 00 |...U....|........|
|00001520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 02 |........|........|
|00001570| 3f fb aa a8 00 00 00 00 | 00 00 00 00 0a aa 00 00 |?.......|........|
|00001580| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|00001590| 15 55 00 00 15 55 00 00 | 15 55 00 00 15 55 00 00 |.U...U..|.U...U..|
|000015a0| 15 55 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.U......|........|
|000015b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 56 |........|.......V|
|00001600| 05 79 2c a4 00 00 00 00 | 00 23 00 00 00 41 00 01 |.y,.....|.#...A..|
|00001610| 04 4e 6f 6e 65 01 00 00 | 00 00 00 00 00 00 00 00 |.None...|........|
|00001620| 00 00 00 00 00 00 09 44 | 69 6d 65 6e 73 69 6f 6e |.......D|imension|
|00001630| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 68 09 b0 |........|.....h..|
|00001640| 00 00 00 00 00 00 00 20 | 01 68 1a 40 01 57 fe 40 |....... |.h.@.W.@|
|00001650| 01 57 00 00 00 2c 05 79 | 2c a4 00 00 00 00 00 37 |.W...,.y|,......7|
|00001660| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001680| 00 20 05 79 2c a4 00 00 | 00 00 00 21 00 00 00 41 |. .y,...|...!...A|
|00001690| 00 02 00 00 00 00 01 aa | 71 10 01 a9 cb c0 00 00 |........|q.......|
|000016a0| 00 4a 05 79 2c a4 00 00 | 00 00 00 39 00 00 00 41 |.J.y,...|...9...A|
|000016b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016c0| 00 00 00 00 00 00 00 00 | 01 aa 68 5c 01 aa 58 4c |........|..h\..XL|
|000016d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016e0| 00 00 00 00 00 00 00 00 | 00 00 00 52 05 79 2c a4 |........|...R.y,.|
|000016f0| 00 00 00 00 00 33 00 00 | 00 40 00 00 00 00 00 00 |.....3..|.@......|
|00001700| 00 00 00 00 80 00 00 78 | 00 3f 00 dd 00 c2 01 a4 |.......x|.?......|
|00001710| 31 20 01 aa 56 d8 01 aa | 70 8c 08 48 61 72 64 77 |1 ..V...|p..Hardw|
|00001720| 61 72 65 61 6c 00 00 00 | 00 09 8c f6 01 1e 00 fd |areal...|........|
|00001730| 00 00 40 81 c7 e8 00 e1 | 00 e9 00 00 08 4f 05 79 |..@.....|.....O.y|
|00001740| 2c a4 01 aa 30 20 00 31 | 00 00 00 40 13 46 6c 61 |,...0 .1|...@.Fla|
|00001750| 74 20 48 65 61 64 20 43 | 61 70 20 53 63 72 65 77 |t Head C|ap Screw|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 08 1a 70 72 |........|......pr|
|00001770| 6f 63 65 64 75 72 65 20 | 64 72 61 77 46 48 53 43 |ocedure |drawFHSC|
|00001780| 53 3b 0d 6c 61 62 65 6c | 20 31 30 2c 32 30 2c 33 |S;.label| 10,20,3|
|00001790| 30 2c 39 30 2c 39 39 3b | 0d 76 61 72 0d 09 09 09 |0,90,99;|.var....|
|000017a0| 61 2c 62 2c 64 2c 64 69 | 61 2c 68 2c 6a 2c 6c 2c |a,b,d,di|a,h,j,l,|
|000017b0| 66 2c 74 64 2c 74 6c 3a | 72 65 61 6c 3b 0d 09 09 |f,td,tl:|real;...|
|000017c0| 09 70 2c 64 69 2c 6c 31 | 3a 72 65 61 6c 3b 0d 09 |.p,di,l1|:real;..|
|000017d0| 09 09 69 2c 74 70 69 63 | 2c 74 70 69 66 2c 6e 3a |..i,tpic|,tpif,n:|
|000017e0| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 61 6e 73 31 |integer;|....ans1|
|000017f0| 3a 73 74 72 69 6e 67 3b | 0d 09 09 09 61 6e 73 3a |:string;|....ans:|
|00001800| 62 6f 6f 6c 65 61 6e 3b | 0d 62 65 67 69 6e 0d 09 |boolean;|.begin..|
|00001810| 09 09 64 73 65 6c 65 63 | 74 61 6c 6c 3b 0d 09 09 |..dselec|tall;...|
|00001820| 09 31 30 3a 64 69 61 3a | 3d 72 65 61 6c 64 69 61 |.10:dia:|=realdia|
|00001830| 6c 6f 67 28 27 45 6e 74 | 65 72 20 73 63 72 65 77 |log('Ent|er screw|
|00001840| 20 64 69 61 6d 65 74 65 | 72 27 2c 27 31 2f 32 27 | diamete|r','1/2'|
|00001850| 29 3b 0d 09 09 09 6c 3a | 3d 72 65 61 6c 64 69 61 |);....l:|=realdia|
|00001860| 6c 6f 67 28 27 45 6e 74 | 65 72 20 73 63 72 65 77 |log('Ent|er screw|
|00001870| 20 6c 65 6e 67 74 68 27 | 2c 27 32 27 29 3b 0d 09 | length'|,'2');..|
|00001880| 09 09 61 6e 73 31 3a 3d | 73 74 72 64 69 61 6c 6f |..ans1:=|strdialo|
|00001890| 67 28 27 54 79 70 65 20 | 6f 66 20 74 68 72 65 61 |g('Type |of threa|
|000018a0| 64 73 3a 0d 09 09 09 31 | 20 2d 20 44 65 74 61 69 |ds:....1| - Detai|
|000018b0| 6c 65 64 0d 09 09 09 32 | 20 2d 20 4e 6f 6e 2d 64 |led....2| - Non-d|
|000018c0| 65 74 61 69 6c 65 64 27 | 2c 27 31 27 29 3b 0d 09 |etailed'|,'1');..|
|000018d0| 09 09 6f 70 65 6e 28 27 | 46 48 53 43 53 2e 64 61 |..open('|FHSCS.da|
|000018e0| 74 61 27 29 3b 0d 09 09 | 09 77 68 69 6c 65 20 6e |ta');...|.while n|
|000018f0| 6f 74 20 65 6f 6c 6e 28 | 27 46 48 53 43 53 2e 64 |ot eoln(|'FHSCS.d|
|00001900| 61 74 61 27 29 20 64 6f | 0d 09 09 09 62 65 67 69 |ata') do|....begi|
|00001910| 6e 0d 09 09 09 09 09 09 | 72 65 61 64 6c 6e 28 64 |n.......|readln(d|
|00001920| 2c 74 70 69 63 2c 74 70 | 69 66 2c 61 2c 6a 29 3b |,tpic,tp|if,a,j);|
|00001930| 0d 09 09 09 09 09 09 69 | 66 20 64 69 61 3d 64 20 |.......i|f dia=d |
|00001940| 74 68 65 6e 20 67 6f 74 | 6f 20 32 30 3b 0d 09 09 |then got|o 20;...|
|00001950| 09 65 6e 64 3b 0d 09 09 | 09 63 6c 6f 73 65 28 27 |.end;...|.close('|
|00001960| 46 48 53 43 53 2e 64 61 | 74 61 27 29 3b 0d 09 09 |FHSCS.da|ta');...|
|00001970| 09 41 6e 73 3a 3d 79 6e | 64 69 61 6c 6f 67 28 27 |.Ans:=yn|dialog('|
|00001980| 49 6e 76 61 6c 69 64 20 | 64 69 61 6d 65 74 65 72 |Invalid |diameter|
|00001990| 2e 20 43 6f 6e 74 69 6e | 75 65 3f 27 29 3b 0d 09 |. Contin|ue?');..|
|000019a0| 09 09 69 66 20 61 6e 73 | 20 74 68 65 6e 20 67 6f |..if ans| then go|
|000019b0| 74 6f 20 31 30 0d 09 09 | 09 65 6c 73 65 20 67 6f |to 10...|.else go|
|000019c0| 74 6f 20 39 39 3b 0d 09 | 09 09 32 30 3a 63 6c 6f |to 99;..|..20:clo|
|000019d0| 73 65 28 27 46 48 53 43 | 53 2e 64 61 74 61 27 29 |se('FHSC|S.data')|
|000019e0| 3b 0d 09 09 09 68 3a 3d | 28 61 2d 64 29 2a 74 61 |;....h:=|(a-d)*ta|
|000019f0| 6e 28 64 65 67 32 72 61 | 64 28 34 39 29 29 2f 32 |n(deg2ra|d(49))/2|
|00001a00| 3b 0d 09 09 09 66 3a 3d | 30 2e 35 37 37 34 2a 6a |;....f:=|0.5774*j|
|00001a10| 3b 0d 09 09 09 74 64 3a | 3d 30 2e 38 36 36 30 33 |;....td:|=0.86603|
|00001a20| 2f 74 70 69 63 3b 0d 09 | 09 09 70 3a 3d 31 2f 74 |/tpic;..|..p:=1/t|
|00001a30| 70 69 63 3b 0d 09 09 09 | 64 69 3a 3d 64 2d 32 2a |pic;....|di:=d-2*|
|00001a40| 74 64 3b 0d 09 09 09 62 | 3a 3d 70 2f 32 3b 0d 7b |td;....b|:=p/2;.{|
|00001a50| 64 65 74 65 72 6d 69 6e | 65 20 74 68 72 65 61 64 |determin|e thread|
|00001a60| 20 6c 65 6e 67 74 68 7d | 0d 09 09 09 69 66 20 6c | length}|....if l|
|00001a70| 20 3c 20 32 2a 64 20 2b | 20 30 2e 35 20 74 68 65 | < 2*d +| 0.5 the|
|00001a80| 6e 0d 09 09 09 74 6c 3a | 3d 6c 0d 09 09 09 65 6c |n....tl:|=l....el|
|00001a90| 73 65 20 69 66 20 6c 20 | 3c 20 34 2a 64 20 2b 20 |se if l |< 4*d + |
|00001aa0| 31 20 74 68 65 6e 0d 09 | 09 09 74 6c 3a 3d 32 2a |1 then..|..tl:=2*|
|00001ab0| 64 20 2b 20 30 2e 35 0d | 09 09 09 65 6c 73 65 20 |d + 0.5.|...else |
|00001ac0| 74 6c 3a 3d 6c 2f 32 3b | 0d 09 09 09 6e 3a 3d 74 |tl:=l/2;|....n:=t|
|00001ad0| 6c 2a 74 70 69 63 3b 0d | 09 09 09 6c 31 3a 3d 6c |l*tpic;.|...l1:=l|
|00001ae0| 2d 28 6e 2d 31 29 2a 70 | 3b 0d 7b 64 72 61 77 20 |-(n-1)*p|;.{draw |
|00001af0| 68 65 61 64 20 70 6c 61 | 6e 20 76 69 65 77 7d 0d |head pla|n view}.|
|00001b00| 09 09 09 6f 76 61 6c 28 | 2d 61 2f 32 2c 61 2f 32 |...oval(|-a/2,a/2|
|00001b10| 2c 61 2f 32 2c 2d 61 2f | 32 29 3b 0d 09 09 09 6d |,a/2,-a/|2);....m|
|00001b20| 6f 76 65 74 6f 28 30 2c | 66 29 3b 0d 09 09 09 72 |oveto(0,|f);....r|
|00001b30| 65 6c 61 74 69 76 65 3b | 0d 7b 64 72 61 77 20 68 |elative;|.{draw h|
|00001b40| 65 78 20 73 6f 63 6b 65 | 74 7d 0d 09 09 09 63 6c |ex socke|t}....cl|
|00001b50| 6f 73 65 70 6f 6c 79 3b | 0d 09 09 09 70 6f 6c 79 |osepoly;|....poly|
|00001b60| 28 66 2c 23 2d 33 30 2c | 66 2c 23 2d 39 30 2c 66 |(f,#-30,|f,#-90,f|
|00001b70| 2c 23 2d 31 35 30 2c 66 | 2c 23 31 35 30 2c 66 2c |,#-150,f|,#150,f,|
|00001b80| 23 39 30 29 3b 0d 09 09 | 09 67 72 6f 75 70 3b 0d |#90);...|.group;.|
|00001b90| 09 09 09 64 73 65 6c 65 | 63 74 61 6c 6c 3b 0d 7b |...dsele|ctall;.{|
|00001ba0| 64 72 61 77 20 68 65 61 | 64 20 73 69 64 65 20 76 |draw hea|d side v|
|00001bb0| 69 65 77 7d 0d 09 09 09 | 6d 6f 76 65 74 6f 28 61 |iew}....|moveto(a|
|00001bc0| 2d 6a 2c 2d 33 2a 61 2f | 32 29 3b 0d 09 09 09 70 |-j,-3*a/|2);....p|
|00001bd0| 6f 6c 79 28 2d 61 2c 30 | 2c 28 61 2d 64 29 2f 32 |oly(-a,0|,(a-d)/2|
|00001be0| 2c 2d 68 2c 64 2c 30 2c | 28 61 2d 64 29 2f 32 2c |,-h,d,0,|(a-d)/2,|
|00001bf0| 68 29 3b 0d 09 09 09 69 | 66 20 73 74 72 32 6e 75 |h);....i|f str2nu|
|00001c00| 6d 28 61 6e 73 31 29 3d | 31 20 74 68 65 6e 20 67 |m(ans1)=|1 then g|
|00001c10| 6f 74 6f 20 33 30 3b 0d | 7b 64 72 61 77 20 6e 6f |oto 30;.|{draw no|
|00001c20| 2d 64 65 74 61 69 6c 20 | 74 68 72 65 61 64 73 7d |-detail |threads}|
|00001c30| 09 09 0d 09 09 09 6d 6f | 76 65 74 6f 28 2d 28 61 |......mo|veto(-(a|
|00001c40| 2b 64 29 2f 32 2c 2d 68 | 29 3b 0d 09 09 09 70 6f |+d)/2,-h|);....po|
|00001c50| 6c 79 28 30 2c 30 2c 30 | 2c 2d 28 6c 2d 62 29 2c |ly(0,0,0|,-(l-b),|
|00001c60| 74 64 2c 2d 62 2c 28 64 | 2d 32 2a 74 64 29 2c 30 |td,-b,(d|-2*td),0|
|00001c70| 2c 74 64 2c 62 2c 30 2c | 28 6c 2d 62 29 29 3b 0d |,td,b,0,|(l-b));.|
|00001c80| 09 09 09 6d 6f 76 65 74 | 6f 28 30 2c 2d 28 6c 2d |...movet|o(0,-(l-|
|00001c90| 62 29 29 3b 0d 09 09 09 | 6c 69 6e 65 74 6f 28 2d |b));....|lineto(-|
|00001ca0| 64 2c 30 29 3b 09 09 09 | 09 09 09 0d 09 09 09 50 |d,0);...|.......P|
|00001cb0| 65 6e 50 61 74 28 2d 32 | 29 3b 0d 09 09 09 6d 6f |enPat(-2|);....mo|
|00001cc0| 76 65 74 6f 28 74 64 2c | 2d 62 29 3b 0d 09 09 09 |veto(td,|-b);....|
|00001cd0| 6c 69 6e 65 74 6f 28 30 | 2c 74 6c 29 3b 0d 09 09 |lineto(0|,tl);...|
|00001ce0| 09 6d 6f 76 65 74 6f 28 | 28 64 2d 32 2a 74 64 29 |.moveto(|(d-2*td)|
|00001cf0| 2c 30 29 3b 0d 09 09 09 | 6c 69 6e 65 74 6f 28 30 |,0);....|lineto(0|
|00001d00| 2c 2d 74 6c 29 3b 0d 09 | 09 09 50 65 6e 50 61 74 |,-tl);..|..PenPat|
|00001d10| 28 32 29 3b 0d 09 09 09 | 69 66 20 74 6c 3d 6c 20 |(2);....|if tl=l |
|00001d20| 74 68 65 6e 20 67 6f 74 | 6f 20 39 30 3b 0d 09 09 |then got|o 90;...|
|00001d30| 09 6d 6f 76 65 74 6f 28 | 74 64 2c 74 6c 29 3b 0d |.moveto(|td,tl);.|
|00001d40| 09 09 09 6c 69 6e 65 74 | 6f 28 2d 64 2c 30 29 3b |...linet|o(-d,0);|
|00001d50| 0d 09 09 09 67 6f 74 6f | 20 39 30 3b 0d 7b 64 72 |....goto| 90;.{dr|
|00001d60| 61 77 20 64 65 74 61 69 | 6c 65 64 20 74 68 72 65 |aw detai|led thre|
|00001d70| 61 64 73 7d 0d 33 30 3a | 6d 6f 76 65 74 6f 28 2d |ads}.30:|moveto(-|
|00001d80| 28 61 2b 64 69 29 2f 32 | 2c 2d 28 6c 2b 68 29 29 |(a+di)/2|,-(l+h))|
|00001d90| 3b 0d 09 09 09 6c 69 6e | 65 74 6f 28 64 69 2c 30 |;....lin|eto(di,0|
|00001da0| 29 3b 0d 09 09 09 6c 69 | 6e 65 74 6f 28 74 64 2f |);....li|neto(td/|
|00001db0| 32 2c 70 2f 34 29 3b 0d | 09 09 09 6c 69 6e 65 74 |2,p/4);.|...linet|
|00001dc0| 6f 28 2d 74 64 2f 32 2c | 70 2f 34 29 3b 0d 09 09 |o(-td/2,|p/4);...|
|00001dd0| 09 6c 69 6e 65 74 6f 28 | 2d 28 64 69 2b 74 64 29 |.lineto(|-(di+td)|
|00001de0| 2c 30 29 3b 0d 09 09 09 | 6d 6f 76 65 74 6f 28 74 |,0);....|moveto(t|
|00001df0| 64 2c 2d 70 2f 32 29 3b | 09 09 09 0d 09 09 09 66 |d,-p/2);|.......f|
|00001e00| 6f 72 20 69 3a 3d 31 20 | 74 6f 20 6e 2d 31 20 64 |or i:=1 |to n-1 d|
|00001e10| 6f 0d 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |o....beg|in......|
|00001e20| 09 6c 69 6e 65 74 6f 28 | 2d 74 64 2c 70 2f 32 29 |.lineto(|-td,p/2)|
|00001e30| 3b 0d 09 09 09 09 09 09 | 6c 69 6e 65 74 6f 28 74 |;.......|lineto(t|
|00001e40| 64 2c 70 2f 32 29 3b 0d | 09 09 09 09 09 09 6c 69 |d,p/2);.|......li|
|00001e50| 6e 65 74 6f 28 64 69 2c | 70 2f 32 29 3b 0d 09 09 |neto(di,|p/2);...|
|00001e60| 09 09 09 09 6c 69 6e 65 | 74 6f 28 74 64 2c 2d 70 |....line|to(td,-p|
|00001e70| 2f 32 29 3b 0d 09 09 09 | 09 09 09 6c 69 6e 65 74 |/2);....|...linet|
|00001e80| 6f 28 2d 74 64 2c 2d 70 | 2f 32 29 3b 0d 09 09 09 |o(-td,-p|/2);....|
|00001e90| 09 09 09 6d 6f 76 65 74 | 6f 28 74 64 2c 70 2f 32 |...movet|o(td,p/2|
|00001ea0| 29 3b 0d 09 09 09 09 09 | 09 6c 69 6e 65 74 6f 28 |);......|.lineto(|
|00001eb0| 2d 64 2c 2d 70 2f 32 29 | 3b 0d 09 09 09 09 09 09 |-d,-p/2)|;.......|
|00001ec0| 6d 6f 76 65 74 6f 28 74 | 64 2c 70 2f 32 29 3b 0d |moveto(t|d,p/2);.|
|00001ed0| 09 09 09 65 6e 64 3b 0d | 09 09 09 6d 6f 76 65 74 |...end;.|...movet|
|00001ee0| 6f 28 64 2d 74 64 2c 6c | 31 29 3b 0d 09 09 09 6c |o(d-td,l|1);....l|
|00001ef0| 69 6e 65 74 6f 28 30 2c | 2d 28 6c 31 2d 70 2f 32 |ineto(0,|-(l1-p/2|
|00001f00| 29 29 3b 0d 09 09 09 6c | 69 6e 65 74 6f 28 2d 64 |));....l|ineto(-d|
|00001f10| 2c 30 29 3b 0d 09 09 09 | 6c 69 6e 65 74 6f 28 30 |,0);....|lineto(0|
|00001f20| 2c 28 6c 31 2d 70 2f 32 | 29 29 3b 0d 09 09 09 6d |,(l1-p/2|));....m|
|00001f30| 6f 76 65 74 6f 28 30 2c | 2d 28 6c 31 2d 70 2f 32 |oveto(0,|-(l1-p/2|
|00001f40| 29 29 3b 0d 09 09 09 6c | 69 6e 65 74 6f 28 74 64 |));....l|ineto(td|
|00001f50| 2c 2d 70 2f 32 29 3b 0d | 39 30 3a 67 72 6f 75 70 |,-p/2);.|90:group|
|00001f60| 3b 0d 09 09 09 64 73 65 | 6c 65 63 74 61 6c 6c 3b |;....dse|lectall;|
|00001f70| 0d 39 39 3a 65 6e 64 3b | 0d 72 75 6e 28 64 72 61 |.99:end;|.run(dra|
|00001f80| 77 46 48 53 43 53 29 3b | 46 00 00 00 60 00 00 00 |wFHSCS);|F...`...|
|00001f90| 00 00 00 00 00 00 3b 00 | 00 00 41 00 00 00 00 00 |......;.|..A.....|
|00001fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fe0| 00 00 00 00 00 01 ad 2f | 44 00 00 02 ea 05 79 2c |......./|D.....y,|
|00001ff0| a4 01 aa 55 34 00 31 00 | 00 00 40 0c 46 6c 61 74 |...U4.1.|..@.Flat|
|00002000| 20 57 61 73 68 65 72 73 | 00 00 00 00 00 00 00 00 | Washers|........|
|00002010| 00 00 00 00 00 00 00 00 | 00 00 00 02 b5 70 72 6f |........|.....pro|
|00002020| 63 65 64 75 72 65 20 64 | 72 61 77 57 61 73 68 65 |cedure d|rawWashe|
|00002030| 72 3b 0d 6c 61 62 65 6c | 20 31 30 2c 32 30 2c 39 |r;.label| 10,20,9|
|00002040| 39 3b 0d 76 61 72 0d 09 | 09 09 61 2c 62 2c 63 3a |9;.var..|..a,b,c:|
|00002050| 72 65 61 6c 3b 0d 09 09 | 09 61 6e 73 3a 62 6f 6f |real;...|.ans:boo|
|00002060| 6c 65 61 6e 3b 0d 62 65 | 67 69 6e 0d 09 09 09 64 |lean;.be|gin....d|
|00002070| 73 65 6c 65 63 74 61 6c | 6c 3b 0d 09 09 09 31 30 |selectal|l;....10|
|00002080| 3a 62 3a 3d 72 65 61 6c | 64 69 61 6c 6f 67 28 27 |:b:=real|dialog('|
|00002090| 45 6e 74 65 72 20 69 6e | 73 69 64 65 20 64 69 61 |Enter in|side dia|
|000020a0| 6d 65 74 65 72 27 2c 27 | 30 2e 35 30 30 27 29 3b |meter','|0.500');|
|000020b0| 0d 09 09 09 61 3a 3d 72 | 65 61 6c 64 69 61 6c 6f |....a:=r|ealdialo|
|000020c0| 67 28 27 45 6e 74 65 72 | 20 6f 75 74 73 69 64 65 |g('Enter| outside|
|000020d0| 20 64 69 61 6d 65 74 65 | 72 27 2c 27 31 2e 30 30 | diamete|r','1.00|
|000020e0| 30 27 29 3b 0d 09 09 09 | 69 66 20 61 3e 62 20 74 |0');....|if a>b t|
|000020f0| 68 65 6e 20 67 6f 74 6f | 20 32 30 0d 09 09 09 41 |hen goto| 20....A|
|00002100| 6e 73 3a 3d 79 6e 64 69 | 61 6c 6f 67 28 27 4f 44 |ns:=yndi|alog('OD|
|00002110| 20 69 73 20 6c 65 73 73 | 20 74 68 61 6e 20 49 44 | is less| than ID|
|00002120| 2e 20 43 6f 6e 74 69 6e | 75 65 3f 27 29 3b 0d 09 |. Contin|ue?');..|
|00002130| 09 09 69 66 20 61 6e 73 | 20 74 68 65 6e 20 67 6f |..if ans| then go|
|00002140| 74 6f 20 31 30 0d 09 09 | 09 65 6c 73 65 20 67 6f |to 10...|.else go|
|00002150| 74 6f 20 39 39 3b 0d 09 | 09 09 32 30 3a 63 3a 3d |to 99;..|..20:c:=|
|00002160| 72 65 61 6c 64 69 61 6c | 6f 67 28 27 45 6e 74 65 |realdial|og('Ente|
|00002170| 72 20 74 68 69 63 6b 6e | 65 73 73 27 2c 27 30 2e |r thickn|ess','0.|
|00002180| 31 32 35 27 29 3b 0d 7b | 64 72 61 77 20 70 6c 61 |125');.{|draw pla|
|00002190| 6e 20 76 69 65 77 7d 0d | 09 09 09 6f 76 61 6c 28 |n view}.|...oval(|
|000021a0| 2d 61 2f 32 2c 61 2f 32 | 2c 61 2f 32 2c 2d 61 2f |-a/2,a/2|,a/2,-a/|
|000021b0| 32 29 3b 0d 09 09 09 6f | 76 61 6c 28 2d 62 2f 32 |2);....o|val(-b/2|
|000021c0| 2c 62 2f 32 2c 62 2f 32 | 2c 2d 62 2f 32 29 3b 0d |,b/2,b/2|,-b/2);.|
|000021d0| 09 09 09 67 72 6f 75 70 | 3b 0d 09 09 09 64 73 65 |...group|;....dse|
|000021e0| 6c 65 63 74 61 6c 6c 3b | 09 09 0d 7b 64 72 61 77 |lectall;|...{draw|
|000021f0| 20 73 69 64 65 20 76 69 | 65 77 7d 0d 09 09 09 72 | side vi|ew}....r|
|00002200| 65 6c 61 74 69 76 65 3b | 0d 09 09 09 6d 6f 76 65 |elative;|....move|
|00002210| 74 6f 28 2d 61 2f 32 2c | 2d 28 61 2f 32 2b 30 2e |to(-a/2,|-(a/2+0.|
|00002220| 31 32 35 29 29 3b 0d 09 | 09 09 72 65 63 74 28 30 |125));..|..rect(0|
|00002230| 2c 30 2c 61 2c 2d 63 29 | 3b 0d 09 09 09 70 65 6e |,0,a,-c)|;....pen|
|00002240| 70 61 74 28 2d 32 29 3b | 0d 09 09 09 6d 6f 76 65 |pat(-2);|....move|
|00002250| 74 6f 28 28 61 2d 62 29 | 2f 32 2c 30 29 3b 0d 09 |to((a-b)|/2,0);..|
|00002260| 09 09 6c 69 6e 65 74 6f | 28 30 2c 2d 63 29 3b 0d |..lineto|(0,-c);.|
|00002270| 09 09 09 6d 6f 76 65 74 | 6f 28 62 2c 30 29 3b 0d |...movet|o(b,0);.|
|00002280| 09 09 09 6c 69 6e 65 74 | 6f 28 30 2c 63 29 3b 0d |...linet|o(0,c);.|
|00002290| 09 09 09 70 65 6e 70 61 | 74 28 32 29 3b 09 09 0d |...penpa|t(2);...|
|000022a0| 09 09 09 67 72 6f 75 70 | 3b 0d 09 09 09 64 73 65 |...group|;....dse|
|000022b0| 6c 65 63 74 61 6c 6c 3b | 0d 39 39 3a 65 6e 64 3b |lectall;|.99:end;|
|000022c0| 0d 72 75 6e 28 64 72 61 | 77 57 61 73 68 65 72 29 |.run(dra|wWasher)|
|000022d0| 3b 0d ee 00 00 00 60 00 | 00 00 00 00 00 00 00 00 |;.....`.|........|
|000022e0| 3b 00 00 00 41 00 00 00 | 00 00 00 00 00 00 00 00 |;...A...|........|
|000022f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002330| 00 00 00 00 00 08 de 05 | 79 2c a4 01 aa 0f 5c 00 |........|y,....\.|
|00002340| 31 00 00 00 40 0f 53 68 | 6f 75 6c 64 65 72 20 53 |1...@.Sh|oulder S|
|00002350| 63 72 65 77 73 00 00 00 | 00 00 00 00 00 00 00 00 |crews...|........|
|00002360| 00 00 00 00 00 08 a9 70 | 72 6f 63 65 64 75 72 65 |.......p|rocedure|
|00002370| 20 64 72 61 77 53 53 3b | 0d 6c 61 62 65 6c 20 31 | drawSS;|.label 1|
|00002380| 30 2c 32 30 2c 33 30 2c | 39 30 2c 39 39 3b 0d 76 |0,20,30,|90,99;.v|
|00002390| 61 72 0d 09 09 09 64 2c | 61 2c 68 2c 6a 2c 73 2c |ar....d,|a,h,j,s,|
|000023a0| 74 2c 74 6c 2c 67 2c 79 | 2c 66 2c 74 64 2c 62 2c |t,tl,g,y|,f,td,b,|
|000023b0| 64 69 61 2c 6c 2c 63 2c | 73 6c 2c 73 64 3a 72 65 |dia,l,c,|sl,sd:re|
|000023c0| 61 6c 3b 0d 09 09 09 64 | 69 2c 6c 31 2c 70 3a 72 |al;....d|i,l1,p:r|
|000023d0| 65 61 6c 3b 0d 09 09 09 | 69 2c 74 70 69 2c 6e 3a |eal;....|i,tpi,n:|
|000023e0| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 61 6e 73 31 |integer;|....ans1|
|000023f0| 3a 73 74 72 69 6e 67 3b | 0d 09 09 09 61 6e 73 3a |:string;|....ans:|
|00002400| 62 6f 6f 6c 65 61 6e 3b | 0d 62 65 67 69 6e 0d 09 |boolean;|.begin..|
|00002410| 09 09 64 73 65 6c 65 63 | 74 61 6c 6c 3b 0d 09 09 |..dselec|tall;...|
|00002420| 09 73 6c 3a 3d 30 2e 31 | 32 35 3b 0d 09 09 09 73 |.sl:=0.1|25;....s|
|00002430| 64 3a 3d 30 2e 30 31 30 | 3b 0d 09 09 09 31 30 3a |d:=0.010|;....10:|
|00002440| 64 69 61 3a 3d 72 65 61 | 6c 64 69 61 6c 6f 67 28 |dia:=rea|ldialog(|
|00002450| 27 45 6e 74 65 72 20 73 | 63 72 65 77 20 64 69 61 |'Enter s|crew dia|
|00002460| 6d 65 74 65 72 27 2c 27 | 31 2f 32 27 29 3b 0d 09 |meter','|1/2');..|
|00002470| 09 09 6c 3a 3d 72 65 61 | 6c 64 69 61 6c 6f 67 28 |..l:=rea|ldialog(|
|00002480| 27 45 6e 74 65 72 20 73 | 63 72 65 77 20 6c 65 6e |'Enter s|crew len|
|00002490| 67 74 68 27 2c 27 31 27 | 29 3b 0d 09 09 09 6f 70 |gth','1'|);....op|
|000024a0| 65 6e 28 27 53 53 2e 64 | 61 74 61 27 29 3b 0d 09 |en('SS.d|ata');..|
|000024b0| 09 09 77 68 69 6c 65 20 | 6e 6f 74 20 65 6f 6c 6e |..while |not eoln|
|000024c0| 28 27 53 53 2e 64 61 74 | 61 27 29 20 64 6f 0d 09 |('SS.dat|a') do..|
|000024d0| 09 09 62 65 67 69 6e 0d | 09 09 09 09 09 09 72 65 |..begin.|......re|
|000024e0| 61 64 6c 6e 28 64 2c 61 | 2c 68 2c 6a 2c 73 2c 74 |adln(d,a|,h,j,s,t|
|000024f0| 2c 74 70 69 2c 74 6c 2c | 67 29 3b 0d 09 09 09 09 |,tpi,tl,|g);.....|
|00002500| 09 09 69 66 20 64 69 61 | 3d 64 20 74 68 65 6e 20 |..if dia|=d then |
|00002510| 67 6f 74 6f 20 32 30 3b | 0d 09 09 09 65 6e 64 3b |goto 20;|....end;|
|00002520| 0d 09 09 09 63 6c 6f 73 | 65 28 27 53 53 2e 64 61 |....clos|e('SS.da|
|00002530| 74 61 27 29 3b 0d 09 09 | 09 41 6e 73 3a 3d 79 6e |ta');...|.Ans:=yn|
|00002540| 64 69 61 6c 6f 67 28 27 | 49 6e 76 61 6c 69 64 20 |dialog('|Invalid |
|00002550| 64 69 61 6d 65 74 65 72 | 2e 20 43 6f 6e 74 69 6e |diameter|. Contin|
|00002560| 75 65 3f 27 29 3b 0d 09 | 09 09 69 66 20 61 6e 73 |ue?');..|..if ans|
|00002570| 20 74 68 65 6e 20 67 6f | 74 6f 20 31 30 0d 09 09 | then go|to 10...|
|00002580| 09 65 6c 73 65 20 67 6f | 74 6f 20 39 39 3b 0d 09 |.else go|to 99;..|
|00002590| 09 09 32 30 3a 63 6c 6f | 73 65 28 27 53 53 2e 64 |..20:clo|se('SS.d|
|000025a0| 61 74 61 27 29 3b 0d 09 | 09 09 61 6e 73 31 3a 3d |ata');..|..ans1:=|
|000025b0| 73 74 72 64 69 61 6c 6f | 67 28 27 54 79 70 65 20 |strdialo|g('Type |
|000025c0| 6f 66 20 74 68 72 65 61 | 64 73 3a 0d 09 09 09 31 |of threa|ds:....1|
|000025d0| 20 2d 20 44 65 74 61 69 | 6c 65 64 0d 09 09 09 32 | - Detai|led....2|
|000025e0| 20 2d 20 4e 6f 6e 2d 64 | 65 74 61 69 6c 65 64 27 | - Non-d|etailed'|
|000025f0| 2c 27 31 27 29 3b 0d 09 | 09 09 63 3a 3d 61 2d 33 |,'1');..|..c:=a-3|
|00002600| 2e 34 36 34 31 2a 28 68 | 2d 73 29 3b 0d 09 09 09 |.4641*(h|-s);....|
|00002610| 79 3a 3d 30 2e 32 38 38 | 37 2a 6a 3b 0d 09 09 09 |y:=0.288|7*j;....|
|00002620| 66 3a 3d 30 2e 35 37 37 | 34 2a 6a 3b 0d 09 09 09 |f:=0.577|4*j;....|
|00002630| 74 64 3a 3d 30 2e 38 36 | 36 30 33 2f 74 70 69 3b |td:=0.86|603/tpi;|
|00002640| 0d 09 09 09 62 3a 3d 30 | 2e 36 30 36 34 30 2f 74 |....b:=0|.60640/t|
|00002650| 70 69 3b 0d 09 09 09 6e | 3a 3d 28 74 6c 2d 67 29 |pi;....n|:=(tl-g)|
|00002660| 2a 74 70 69 3b 0d 09 09 | 09 64 69 3a 3d 74 2d 32 |*tpi;...|.di:=t-2|
|00002670| 2a 74 64 3b 0d 09 09 09 | 70 3a 3d 31 2f 74 70 69 |*td;....|p:=1/tpi|
|00002680| 3b 0d 09 09 09 6c 31 3a | 3d 74 6c 2d 67 2d 6e 2a |;....l1:|=tl-g-n*|
|00002690| 70 3b 0d 7b 64 72 61 77 | 20 68 65 61 64 20 70 6c |p;.{draw| head pl|
|000026a0| 61 6e 20 76 69 65 77 7d | 0d 09 09 09 6f 76 61 6c |an view}|....oval|
|000026b0| 28 2d 61 2f 32 2c 61 2f | 32 2c 61 2f 32 2c 2d 61 |(-a/2,a/|2,a/2,-a|
|000026c0| 2f 32 29 3b 0d 09 09 09 | 6f 76 61 6c 28 2d 63 2f |/2);....|oval(-c/|
|000026d0| 32 2c 63 2f 32 2c 63 2f | 32 2c 2d 63 2f 32 29 3b |2,c/2,c/|2,-c/2);|
|000026e0| 0d 09 09 09 6d 6f 76 65 | 74 6f 28 30 2c 79 2b 66 |....move|to(0,y+f|
|000026f0| 2f 32 29 3b 0d 09 09 09 | 72 65 6c 61 74 69 76 65 |/2);....|relative|
|00002700| 3b 0d 09 09 09 63 6c 6f | 73 65 70 6f 6c 79 3b 0d |;....clo|sepoly;.|
|00002710| 09 09 09 70 6f 6c 79 28 | 66 2c 23 2d 33 30 2c 66 |...poly(|f,#-30,f|
|00002720| 2c 23 2d 39 30 2c 66 2c | 23 2d 31 35 30 2c 66 2c |,#-90,f,|#-150,f,|
|00002730| 23 31 35 30 2c 66 2c 23 | 39 30 29 3b 0d 09 09 09 |#150,f,#|90);....|
|00002740| 67 72 6f 75 70 3b 0d 09 | 09 09 64 73 65 6c 65 63 |group;..|..dselec|
|00002750| 74 61 6c 6c 3b 0d 7b 64 | 72 61 77 20 68 65 61 64 |tall;.{d|raw head|
|00002760| 20 73 69 64 65 20 76 69 | 65 77 7d 0d 09 09 09 61 | side vi|ew}....a|
|00002770| 62 73 6f 6c 75 74 65 3b | 0d 09 09 09 6d 6f 76 65 |bsolute;|....move|
|00002780| 74 6f 28 2d 61 2f 32 2c | 2d 33 2a 61 2f 32 29 3b |to(-a/2,|-3*a/2);|
|00002790| 0d 09 09 09 72 65 6c 61 | 74 69 76 65 3b 0d 09 09 |....rela|tive;...|
|000027a0| 09 72 65 63 74 28 30 2c | 30 2c 61 2c 73 29 3b 0d |.rect(0,|0,a,s);.|
|000027b0| 09 09 09 6d 6f 76 65 74 | 6f 28 30 2c 73 29 3b 0d |...movet|o(0,s);.|
|000027c0| 09 09 09 6c 69 6e 65 74 | 6f 28 28 61 2d 63 29 2f |...linet|o((a-c)/|
|000027d0| 32 2c 28 68 2d 73 29 29 | 3b 6c 69 6e 65 74 6f 28 |2,(h-s))|;lineto(|
|000027e0| 63 2c 30 29 3b 6c 69 6e | 65 74 6f 28 28 61 2d 63 |c,0);lin|eto((a-c|
|000027f0| 29 2f 32 2c 2d 28 68 2d | 73 29 29 3b 0d 7b 64 72 |)/2,-(h-|s));.{dr|
|00002800| 61 77 20 73 68 6f 75 6c | 64 65 72 7d 0d 09 09 09 |aw shoul|der}....|
|00002810| 6d 6f 76 65 74 6f 28 2d | 28 61 2b 64 29 2f 32 2c |moveto(-|(a+d)/2,|
|00002820| 2d 28 73 2b 73 6c 29 29 | 3b 0d 09 09 09 72 65 63 |-(s+sl))|;....rec|
|00002830| 74 28 30 2c 30 2c 64 2c | 2d 28 6c 2d 73 6c 29 29 |t(0,0,d,|-(l-sl))|
|00002840| 3b 0d 09 09 09 6d 6f 76 | 65 74 6f 28 73 64 2c 30 |;....mov|eto(sd,0|
|00002850| 29 3b 0d 09 09 09 6c 69 | 6e 65 74 6f 28 30 2c 73 |);....li|neto(0,s|
|00002860| 6c 29 3b 0d 09 09 09 6d | 6f 76 65 74 6f 28 28 64 |l);....m|oveto((d|
|00002870| 2d 32 2a 73 64 29 2c 30 | 29 3b 0d 09 09 09 6c 69 |-2*sd),0|);....li|
|00002880| 6e 65 74 6f 28 30 2c 2d | 73 6c 29 3b 0d 09 09 09 |neto(0,-|sl);....|
|00002890| 69 66 20 73 74 72 32 6e | 75 6d 28 61 6e 73 31 29 |if str2n|um(ans1)|
|000028a0| 3d 31 20 74 68 65 6e 20 | 67 6f 74 6f 20 33 30 3b |=1 then |goto 30;|
|000028b0| 0d 7b 64 72 61 77 20 6e | 6f 2d 64 65 74 61 69 6c |.{draw n|o-detail|
|000028c0| 20 74 68 72 65 61 64 73 | 7d 0d 09 09 09 6d 6f 76 | threads|}....mov|
|000028d0| 65 74 6f 28 2d 28 64 2f | 32 2d 73 64 2b 74 2f 32 |eto(-(d/|2-sd+t/2|
|000028e0| 29 2c 2d 28 6c 2d 73 6c | 2b 67 29 29 3b 0d 09 09 |),-(l-sl|+g));...|
|000028f0| 09 72 65 63 74 28 30 2c | 30 2c 74 2c 2d 28 74 6c |.rect(0,|0,t,-(tl|
|00002900| 2d 67 2d 62 29 29 3b 0d | 09 09 09 6d 6f 76 65 74 |-g-b));.|...movet|
|00002910| 6f 28 74 2c 2d 28 74 6c | 2d 67 2d 62 29 29 3b 0d |o(t,-(tl|-g-b));.|
|00002920| 09 09 09 6c 69 6e 65 74 | 6f 28 2d 74 64 2c 2d 62 |...linet|o(-td,-b|
|00002930| 29 3b 6c 69 6e 65 74 6f | 28 2d 28 74 2d 32 2a 74 |);lineto|(-(t-2*t|
|00002940| 64 29 2c 30 29 3b 6c 69 | 6e 65 74 6f 28 2d 74 64 |d),0);li|neto(-td|
|00002950| 2c 62 29 3b 09 09 09 0d | 09 09 09 6d 6f 76 65 74 |,b);....|...movet|
|00002960| 6f 28 74 64 2c 2d 62 29 | 3b 0d 09 09 09 50 65 6e |o(td,-b)|;....Pen|
|00002970| 50 61 74 28 2d 32 29 3b | 0d 09 09 09 6c 69 6e 65 |Pat(-2);|....line|
|00002980| 74 6f 28 30 2c 28 74 6c | 2d 67 29 29 3b 0d 09 09 |to(0,(tl|-g));...|
|00002990| 09 6d 6f 76 65 74 6f 28 | 28 74 2d 32 2a 74 64 29 |.moveto(|(t-2*td)|
|000029a0| 2c 30 29 3b 0d 09 09 09 | 6c 69 6e 65 74 6f 28 30 |,0);....|lineto(0|
|000029b0| 2c 2d 28 74 6c 2d 67 29 | 29 3b 0d 09 09 09 50 65 |,-(tl-g)|);....Pe|
|000029c0| 6e 50 61 74 28 32 29 3b | 0d 09 09 09 6d 6f 76 65 |nPat(2);|....move|
|000029d0| 74 6f 28 30 2c 28 74 6c | 2d 67 29 29 3b 0d 09 09 |to(0,(tl|-g));...|
|000029e0| 09 6c 69 6e 65 74 6f 28 | 30 2c 67 29 3b 0d 09 09 |.lineto(|0,g);...|
|000029f0| 09 6d 6f 76 65 74 6f 28 | 2d 64 69 2c 30 29 3b 0d |.moveto(|-di,0);.|
|00002a00| 09 09 09 6c 69 6e 65 74 | 6f 28 30 2c 2d 67 29 3b |...linet|o(0,-g);|
|00002a10| 0d 09 09 09 67 6f 74 6f | 20 39 30 3b 0d 7b 64 72 |....goto| 90;.{dr|
|00002a20| 61 77 20 64 65 74 61 69 | 6c 65 64 20 74 68 72 65 |aw detai|led thre|
|00002a30| 61 64 73 7d 0d 09 09 09 | 33 30 3a 6d 6f 76 65 74 |ads}....|30:movet|
|00002a40| 6f 28 2d 28 64 2f 32 2d | 73 64 2b 64 69 2f 32 29 |o(-(d/2-|sd+di/2)|
|00002a50| 2c 2d 28 6c 2d 73 6c 2b | 74 6c 29 29 3b 0d 09 09 |,-(l-sl+|tl));...|
|00002a60| 09 6c 69 6e 65 74 6f 28 | 64 69 2c 30 29 3b 0d 09 |.lineto(|di,0);..|
|00002a70| 09 09 6c 69 6e 65 74 6f | 28 74 64 2f 32 2c 70 2f |..lineto|(td/2,p/|
|00002a80| 34 29 3b 0d 09 09 09 6c | 69 6e 65 74 6f 28 2d 74 |4);....l|ineto(-t|
|00002a90| 64 2f 32 2c 70 2f 34 29 | 3b 0d 09 09 09 6c 69 6e |d/2,p/4)|;....lin|
|00002aa0| 65 74 6f 28 2d 28 64 69 | 2b 74 64 29 2c 30 29 3b |eto(-(di|+td),0);|
|00002ab0| 0d 09 09 09 6d 6f 76 65 | 74 6f 28 74 64 2c 2d 70 |....move|to(td,-p|
|00002ac0| 2f 32 29 3b 09 09 09 0d | 09 09 09 66 6f 72 20 69 |/2);....|...for i|
|00002ad0| 3a 3d 31 20 74 6f 20 6e | 20 64 6f 0d 09 09 09 62 |:=1 to n| do....b|
|00002ae0| 65 67 69 6e 0d 09 09 09 | 09 09 09 6c 69 6e 65 74 |egin....|...linet|
|00002af0| 6f 28 2d 74 64 2c 70 2f | 32 29 3b 0d 09 09 09 09 |o(-td,p/|2);.....|
|00002b00| 09 09 6c 69 6e 65 74 6f | 28 74 64 2c 70 2f 32 29 |..lineto|(td,p/2)|
|00002b10| 3b 0d 09 09 09 09 09 09 | 6c 69 6e 65 74 6f 28 64 |;.......|lineto(d|
|00002b20| 69 2c 70 2f 32 29 3b 0d | 09 09 09 09 09 09 6c 69 |i,p/2);.|......li|
|00002b30| 6e 65 74 6f 28 74 64 2c | 2d 70 2f 32 29 3b 0d 09 |neto(td,|-p/2);..|
|00002b40| 09 09 09 09 09 6c 69 6e | 65 74 6f 28 2d 74 64 2c |.....lin|eto(-td,|
|00002b50| 2d 70 2f 32 29 3b 0d 09 | 09 09 09 09 09 6d 6f 76 |-p/2);..|.....mov|
|00002b60| 65 74 6f 28 74 64 2c 70 | 2f 32 29 3b 0d 09 09 09 |eto(td,p|/2);....|
|00002b70| 09 09 09 6c 69 6e 65 74 | 6f 28 2d 74 2c 2d 70 2f |...linet|o(-t,-p/|
|00002b80| 32 29 3b 0d 09 09 09 09 | 09 09 6d 6f 76 65 74 6f |2);.....|..moveto|
|00002b90| 28 74 64 2c 70 2f 32 29 | 3b 0d 09 09 09 65 6e 64 |(td,p/2)|;....end|
|00002ba0| 3b 0d 09 09 09 6c 69 6e | 65 74 6f 28 30 2c 6c 31 |;....lin|eto(0,l1|
|00002bb0| 2b 67 29 3b 0d 09 09 09 | 6d 6f 76 65 74 6f 28 64 |+g);....|moveto(d|
|00002bc0| 69 2c 30 29 3b 0d 09 09 | 09 6c 69 6e 65 74 6f 28 |i,0);...|.lineto(|
|00002bd0| 30 2c 2d 28 6c 31 2d 70 | 2f 32 2b 67 29 29 3b 0d |0,-(l1-p|/2+g));.|
|00002be0| 09 09 09 39 30 3a 67 72 | 6f 75 70 3b 0d 09 09 09 |...90:gr|oup;....|
|00002bf0| 64 73 65 6c 65 63 74 61 | 6c 6c 3b 0d 39 39 3a 65 |dselecta|ll;.99:e|
|00002c00| 6e 64 3b 0d 72 75 6e 28 | 64 72 61 77 53 53 29 3b |nd;.run(|drawSS);|
|00002c10| 30 00 00 00 60 00 00 00 | 00 00 00 00 00 00 3b 00 |0...`...|......;.|
|00002c20| 00 00 41 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..A.....|........|
|00002c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 ad 66 |........|.......f|
|00002c70| a4 00 00 09 51 05 79 2c | a4 01 aa 2e a4 00 31 00 |....Q.y,|......1.|
|00002c80| 00 00 40 08 48 65 78 20 | 4e 75 74 73 00 60 b2 e4 |..@.Hex |Nuts.`..|
|00002c90| c4 60 b2 e2 44 00 00 00 | 00 00 00 00 00 00 00 00 |.`..D...|........|
|00002ca0| 00 00 00 09 1c 70 72 6f | 63 65 64 75 72 65 20 64 |.....pro|cedure d|
|00002cb0| 72 61 77 4e 75 74 3b 0d | 6c 61 62 65 6c 20 31 30 |rawNut;.|label 10|
|00002cc0| 2c 31 35 2c 32 30 2c 33 | 30 2c 34 30 2c 39 39 3b |,15,20,3|0,40,99;|
|00002cd0| 0d 76 61 72 0d 09 09 09 | 61 2c 63 2c 64 2c 64 69 |.var....|a,c,d,di|
|00002ce0| 2c 6a 2c 68 2c 73 2c 66 | 2c 79 2c 64 69 61 2c 68 |,j,h,s,f|,y,dia,h|
|00002cf0| 31 2c 68 32 3a 72 65 61 | 6c 3b 0d 09 09 09 69 3a |1,h2:rea|l;....i:|
|00002d00| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 61 6e 73 31 |integer;|....ans1|
|00002d10| 3a 73 74 72 69 6e 67 3b | 0d 09 09 09 61 6e 73 3a |:string;|....ans:|
|00002d20| 62 6f 6f 6c 65 61 6e 3b | 0d 70 72 6f 63 65 64 75 |boolean;|.procedu|
|00002d30| 72 65 20 63 75 72 76 65 | 73 28 78 2c 79 3a 72 65 |re curve|s(x,y:re|
|00002d40| 61 6c 29 3b 0d 62 65 67 | 69 6e 3b 0d 09 09 09 6f |al);.beg|in;....o|
|00002d50| 70 65 6e 70 6f 6c 79 3b | 0d 09 09 09 62 65 67 69 |penpoly;|....begi|
|00002d60| 6e 70 6f 6c 79 3b 0d 09 | 09 09 09 09 09 63 75 72 |npoly;..|.....cur|
|00002d70| 76 65 74 68 72 6f 75 67 | 68 28 30 2c 30 29 3b 0d |vethroug|h(0,0);.|
|00002d80| 09 09 09 09 09 09 63 75 | 72 76 65 74 68 72 6f 75 |......cu|rvethrou|
|00002d90| 67 68 28 78 2f 32 2c 79 | 29 3b 0d 09 09 09 09 09 |gh(x/2,y|);......|
|00002da0| 09 63 75 72 76 65 74 68 | 72 6f 75 67 68 28 78 2f |.curveth|rough(x/|
|00002db0| 32 2c 2d 79 29 3b 0d 09 | 09 09 65 6e 64 70 6f 6c |2,-y);..|..endpol|
|00002dc0| 79 3b 0d 65 6e 64 3b 09 | 09 09 0d 0d 62 65 67 69 |y;.end;.|....begi|
|00002dd0| 6e 0d 09 09 09 64 73 65 | 6c 65 63 74 61 6c 6c 3b |n....dse|lectall;|
|00002de0| 0d 09 09 09 31 30 3a 64 | 69 61 3a 3d 72 65 61 6c |....10:d|ia:=real|
|00002df0| 64 69 61 6c 6f 67 28 27 | 45 6e 74 65 72 20 62 6f |dialog('|Enter bo|
|00002e00| 6c 74 20 73 69 7a 65 27 | 2c 27 31 2f 32 27 29 3b |lt size'|,'1/2');|
|00002e10| 0d 09 09 09 61 6e 73 31 | 3a 3d 73 74 72 64 69 61 |....ans1|:=strdia|
|00002e20| 6c 6f 67 28 27 54 79 70 | 65 20 6f 66 20 6e 75 74 |log('Typ|e of nut|
|00002e30| 3a 0d 09 09 09 31 20 2d | 20 53 74 61 6e 64 61 72 |:....1 -| Standar|
|00002e40| 64 0d 09 09 09 32 20 2d | 20 4a 61 6d 20 4e 75 74 |d....2 -| Jam Nut|
|00002e50| 27 2c 27 31 27 29 3b 0d | 09 09 09 6f 70 65 6e 28 |','1');.|...open(|
|00002e60| 27 48 65 78 20 4e 75 74 | 2e 64 61 74 61 27 29 3b |'Hex Nut|.data');|
|00002e70| 0d 09 09 09 77 68 69 6c | 65 20 6e 6f 74 20 65 6f |....whil|e not eo|
|00002e80| 6c 6e 28 27 48 65 78 20 | 4e 75 74 2e 64 61 74 61 |ln('Hex |Nut.data|
|00002e90| 27 29 20 64 6f 0d 09 09 | 09 62 65 67 69 6e 0d 09 |') do...|.begin..|
|00002ea0| 09 09 09 09 09 72 65 61 | 64 6c 6e 28 64 2c 6a 2c |.....rea|dln(d,j,|
|00002eb0| 68 31 2c 68 32 29 3b 0d | 09 09 09 09 09 09 69 66 |h1,h2);.|......if|
|00002ec0| 20 64 69 61 3d 64 20 74 | 68 65 6e 20 67 6f 74 6f | dia=d t|hen goto|
|00002ed0| 20 32 30 3b 0d 09 09 09 | 65 6e 64 3b 0d 09 09 09 | 20;....|end;....|
|00002ee0| 63 6c 6f 73 65 28 27 48 | 65 78 20 4e 75 74 2e 64 |close('H|ex Nut.d|
|00002ef0| 61 74 61 27 29 3b 0d 09 | 09 09 31 35 3a 41 6e 73 |ata');..|..15:Ans|
|00002f00| 3a 3d 79 6e 64 69 61 6c | 6f 67 28 27 49 6e 76 61 |:=yndial|og('Inva|
|00002f10| 6c 69 64 20 64 69 61 6d | 65 74 65 72 2e 20 43 6f |lid diam|eter. Co|
|00002f20| 6e 74 69 6e 75 65 3f 27 | 29 3b 0d 09 09 09 69 66 |ntinue?'|);....if|
|00002f30| 20 61 6e 73 20 74 68 65 | 6e 20 67 6f 74 6f 20 31 | ans the|n goto 1|
|00002f40| 30 0d 09 09 09 65 6c 73 | 65 20 67 6f 74 6f 20 39 |0....els|e goto 9|
|00002f50| 39 3b 0d 09 09 09 32 30 | 3a 63 6c 6f 73 65 28 27 |9;....20|:close('|
|00002f60| 48 65 78 20 4e 75 74 2e | 64 61 74 61 27 29 3b 0d |Hex Nut.|data');.|
|00002f70| 09 09 09 69 66 20 28 28 | 61 6e 73 31 3d 27 31 27 |...if ((|ans1='1'|
|00002f80| 29 20 61 6e 64 20 28 68 | 31 3d 30 2e 30 29 20 6f |) and (h|1=0.0) o|
|00002f90| 72 20 28 61 6e 73 31 3d | 27 32 27 29 20 61 6e 64 |r (ans1=|'2') and|
|00002fa0| 20 28 68 32 20 3d 20 30 | 2e 30 29 29 20 74 68 65 | (h2 = 0|.0)) the|
|00002fb0| 6e 20 67 6f 74 6f 20 31 | 35 3b 0d 09 09 09 66 3a |n goto 1|5;....f:|
|00002fc0| 3d 30 2e 35 37 37 33 35 | 2a 6a 3b 0d 09 09 09 61 |=0.57735|*j;....a|
|00002fd0| 3a 3d 31 2e 31 35 34 37 | 30 2a 6a 3b 0d 09 09 09 |:=1.1547|0*j;....|
|00002fe0| 63 3a 3d 30 2e 32 38 38 | 36 38 2a 28 61 2d 6a 29 |c:=0.288|68*(a-j)|
|00002ff0| 3b 0d 09 09 09 79 3a 3d | 28 61 2d 66 29 2f 32 3b |;....y:=|(a-f)/2;|
|00003000| 0d 09 09 09 73 3a 3d 28 | 61 2d 6a 29 2f 32 3b 0d |....s:=(|a-j)/2;.|
|00003010| 09 09 09 64 69 3a 3d 30 | 2e 38 35 2a 64 3b 0d 7b |...di:=0|.85*d;.{|
|00003020| 64 72 61 77 20 70 6c 61 | 6e 20 76 69 65 77 7d 0d |draw pla|n view}.|
|00003030| 09 09 09 6d 6f 76 65 74 | 6f 28 61 2f 32 2c 30 29 |...movet|o(a/2,0)|
|00003040| 3b 0d 09 09 09 72 65 6c | 61 74 69 76 65 3b 0d 09 |;....rel|ative;..|
|00003050| 09 09 63 6c 6f 73 65 70 | 6f 6c 79 3b 0d 09 09 09 |..closep|oly;....|
|00003060| 70 6f 6c 79 28 30 2c 30 | 2c 66 2c 23 2d 31 32 30 |poly(0,0|,f,#-120|
|00003070| 2c 66 2c 23 2d 31 38 30 | 2c 66 2c 23 31 32 30 2c |,f,#-180|,f,#120,|
|00003080| 66 2c 23 36 30 2c 66 2c | 23 30 29 3b 0d 09 09 09 |f,#60,f,|#0);....|
|00003090| 61 62 73 6f 6c 75 74 65 | 3b 0d 09 09 09 6f 76 61 |absolute|;....ova|
|000030a0| 6c 28 2d 6a 2f 32 2c 6a | 2f 32 2c 6a 2f 32 2c 2d |l(-j/2,j|/2,j/2,-|
|000030b0| 6a 2f 32 29 3b 0d 09 09 | 09 6f 76 61 6c 28 2d 64 |j/2);...|.oval(-d|
|000030c0| 69 2f 32 2c 64 69 2f 32 | 2c 64 69 2f 32 2c 2d 64 |i/2,di/2|,di/2,-d|
|000030d0| 69 2f 32 29 3b 0d 09 09 | 09 70 65 6e 50 61 74 28 |i/2);...|.penPat(|
|000030e0| 2d 32 29 3b 0d 09 09 09 | 6f 76 61 6c 28 2d 64 2f |-2);....|oval(-d/|
|000030f0| 32 2c 64 2f 32 2c 64 2f | 32 2c 2d 64 2f 32 29 3b |2,d/2,d/|2,-d/2);|
|00003100| 0d 09 09 09 70 65 6e 50 | 61 74 28 32 29 3b 0d 09 |....penP|at(2);..|
|00003110| 09 09 67 72 6f 75 70 3b | 0d 09 09 09 64 73 65 6c |..group;|....dsel|
|00003120| 65 63 74 61 6c 6c 3b 0d | 09 09 09 72 65 6c 61 74 |ectall;.|...relat|
|00003130| 69 76 65 3b 0d 7b 64 72 | 61 77 20 73 69 64 65 20 |ive;.{dr|aw side |
|00003140| 76 69 65 77 20 23 31 7d | 3b 0d 09 09 09 6d 6f 76 |view #1}|;....mov|
|00003150| 65 74 6f 28 79 2c 2d 31 | 2e 35 2a 6a 29 3b 0d 09 |eto(y,-1|.5*j);..|
|00003160| 09 09 69 66 20 61 6e 73 | 31 3d 27 31 27 20 74 68 |..if ans|1='1' th|
|00003170| 65 6e 0d 09 09 09 09 09 | 09 70 6f 6c 79 28 30 2c |en......|.poly(0,|
|00003180| 30 2c 30 2c 2d 28 68 31 | 2d 63 29 2c 2d 61 2c 30 |0,0,-(h1|-c),-a,0|
|00003190| 2c 30 2c 28 68 31 2d 63 | 29 2c 73 2c 63 2c 28 61 |,0,(h1-c|),s,c,(a|
|000031a0| 2d 32 2a 73 29 2c 30 29 | 0d 09 09 09 65 6c 73 65 |-2*s),0)|....else|
|000031b0| 09 09 09 09 09 09 09 09 | 70 6f 6c 79 28 30 2c 30 |........|poly(0,0|
|000031c0| 2c 30 2c 2d 28 68 32 2d | 32 2a 63 29 2c 2d 73 2c |,0,-(h2-|2*c),-s,|
|000031d0| 2d 63 2c 2d 28 61 2d 32 | 2a 73 29 2c 30 2c 2d 73 |-c,-(a-2|*s),0,-s|
|000031e0| 2c 63 2c 30 2c 28 68 32 | 2d 32 2a 63 29 2c 73 2c |,c,0,(h2|-2*c),s,|
|000031f0| 63 2c 28 61 2d 32 2a 73 | 29 2c 30 29 3b 0d 09 09 |c,(a-2*s|),0);...|
|00003200| 09 6d 6f 76 65 74 6f 28 | 2d 28 61 2d 73 29 2c 2d |.moveto(|-(a-s),-|
|00003210| 63 29 3b 0d 09 09 09 63 | 75 72 76 65 73 28 79 2c |c);....c|urves(y,|
|00003220| 63 29 3b 0d 09 09 09 63 | 75 72 76 65 73 28 61 2d |c);....c|urves(a-|
|00003230| 32 2a 79 2c 63 29 3b 0d | 09 09 09 63 75 72 76 65 |2*y,c);.|...curve|
|00003240| 73 28 79 2c 63 29 3b 0d | 09 09 09 69 66 20 61 6e |s(y,c);.|...if an|
|00003250| 73 31 3d 27 31 27 20 74 | 68 65 6e 20 67 6f 74 6f |s1='1' t|hen goto|
|00003260| 20 33 30 3b 0d 09 09 09 | 6d 6f 76 65 74 6f 28 30 | 30;....|moveto(0|
|00003270| 2c 2d 28 68 32 2d 32 2a | 63 29 29 3b 0d 09 09 09 |,-(h2-2*|c));....|
|00003280| 63 75 72 76 65 73 28 2d | 79 2c 2d 63 29 3b 0d 09 |curves(-|y,-c);..|
|00003290| 09 09 63 75 72 76 65 73 | 28 2d 28 61 2d 32 2a 79 |..curves|(-(a-2*y|
|000032a0| 29 2c 2d 63 29 3b 0d 09 | 09 09 63 75 72 76 65 73 |),-c);..|..curves|
|000032b0| 28 2d 79 2c 2d 63 29 3b | 0d 33 30 3a 69 66 20 61 |(-y,-c);|.30:if a|
|000032c0| 6e 73 31 3d 27 31 27 20 | 74 68 65 6e 0d 09 09 09 |ns1='1' |then....|
|000032d0| 62 65 67 69 6e 0d 09 09 | 09 09 09 09 6d 6f 76 65 |begin...|....move|
|000032e0| 74 6f 28 2d 79 2c 30 29 | 3b 0d 09 09 09 20 20 09 |to(-y,0)|;....  .|
|000032f0| 20 6c 69 6e 65 74 6f 28 | 30 2c 2d 28 68 31 2d 63 | lineto(|0,-(h1-c|
|00003300| 29 29 3b 0d 09 09 09 20 | 20 09 20 6d 6f 76 65 74 |));.... | . movet|
|00003310| 6f 28 2d 66 2c 30 29 3b | 0d 09 09 09 20 20 20 09 |o(-f,0);|....   .|
|00003320| 6c 69 6e 65 74 6f 28 30 | 2c 28 68 31 2d 63 29 29 |lineto(0|,(h1-c))|
|00003330| 3b 0d 09 09 09 65 6e 64 | 0d 09 09 09 65 6c 73 65 |;....end|....else|
|00003340| 0d 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |....begi|n.......|
|00003350| 6d 6f 76 65 74 6f 28 79 | 2c 30 29 3b 0d 09 09 09 |moveto(y|,0);....|
|00003360| 09 09 09 6c 69 6e 65 74 | 6f 28 30 2c 28 68 32 2d |...linet|o(0,(h2-|
|00003370| 32 2a 63 29 29 3b 0d 09 | 09 09 09 09 09 20 6d 6f |2*c));..|..... mo|
|00003380| 76 65 74 6f 28 66 2c 2d | 28 68 32 2d 32 2a 63 29 |veto(f,-|(h2-2*c)|
|00003390| 29 3b 0d 09 09 09 09 09 | 09 6c 69 6e 65 74 6f 28 |);......|.lineto(|
|000033a0| 30 2c 28 68 32 2d 32 2a | 63 29 29 3b 0d 09 09 09 |0,(h2-2*|c));....|
|000033b0| 65 6e 64 3b 0d 09 09 09 | 67 72 6f 75 70 3b 0d 09 |end;....|group;..|
|000033c0| 09 09 64 73 65 6c 65 63 | 74 61 6c 6c 3b 0d 7b 64 |..dselec|tall;.{d|
|000033d0| 72 61 77 20 73 69 64 65 | 20 76 69 65 77 20 23 32 |raw side| view #2|
|000033e0| 7d 3b 0d 09 09 09 63 6c | 6f 73 65 70 6f 6c 79 3b |};....cl|osepoly;|
|000033f0| 0d 09 09 09 6d 6f 76 65 | 74 6f 28 32 2e 35 2a 61 |....move|to(2.5*a|
|00003400| 2c 63 29 3b 0d 09 09 09 | 69 66 20 61 6e 73 31 3d |,c);....|if ans1=|
|00003410| 27 31 27 20 74 68 65 6e | 0d 09 09 09 09 09 09 70 |'1' then|.......p|
|00003420| 6f 6c 79 28 30 2c 30 2c | 30 2c 2d 68 31 2c 2d 6a |oly(0,0,|0,-h1,-j|
|00003430| 2c 30 2c 30 2c 68 31 29 | 0d 09 09 09 65 6c 73 65 |,0,0,h1)|....else|
|00003440| 0d 09 09 09 09 09 09 70 | 6f 6c 79 28 30 2c 30 2c |.......p|oly(0,0,|
|00003450| 30 2c 2d 68 32 2c 2d 6a | 2c 30 2c 30 2c 68 32 29 |0,-h2,-j|,0,0,h2)|
|00003460| 3b 0d 09 09 09 6d 6f 76 | 65 74 6f 28 30 2c 2d 63 |;....mov|eto(0,-c|
|00003470| 29 3b 0d 09 09 09 63 75 | 72 76 65 73 28 6a 2f 32 |);....cu|rves(j/2|
|00003480| 2c 63 29 3b 0d 09 09 09 | 63 75 72 76 65 73 28 6a |,c);....|curves(j|
|00003490| 2f 32 2c 63 29 3b 0d 09 | 09 09 69 66 20 61 6e 73 |/2,c);..|..if ans|
|000034a0| 31 3d 27 31 27 20 74 68 | 65 6e 20 67 6f 74 6f 20 |1='1' th|en goto |
|000034b0| 34 30 3b 0d 09 09 09 6d | 6f 76 65 74 6f 28 30 2c |40;....m|oveto(0,|
|000034c0| 2d 28 68 32 2d 32 2a 63 | 29 29 3b 0d 09 09 09 63 |-(h2-2*c|));....c|
|000034d0| 75 72 76 65 73 28 2d 6a | 2f 32 2c 2d 63 29 3b 0d |urves(-j|/2,-c);.|
|000034e0| 09 09 09 63 75 72 76 65 | 73 28 2d 6a 2f 32 2c 2d |...curve|s(-j/2,-|
|000034f0| 63 29 3b 0d 34 30 3a 69 | 66 20 61 6e 73 31 3d 27 |c);.40:i|f ans1='|
|00003500| 31 27 20 74 68 65 6e 0d | 09 09 09 62 65 67 69 6e |1' then.|...begin|
|00003510| 0d 09 09 09 09 09 09 6d | 6f 76 65 74 6f 28 2d 6a |.......m|oveto(-j|
|00003520| 2f 32 2c 30 29 3b 0d 09 | 09 09 20 20 09 20 6c 69 |/2,0);..|..  . li|
|00003530| 6e 65 74 6f 28 30 2c 2d | 28 68 31 2d 63 29 29 3b |neto(0,-|(h1-c));|
|00003540| 0d 09 09 09 65 6e 64 0d | 09 09 09 65 6c 73 65 0d |....end.|...else.|
|00003550| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 6d |...begin|.......m|
|00003560| 6f 76 65 74 6f 28 6a 2f | 32 2c 30 29 3b 0d 09 09 |oveto(j/|2,0);...|
|00003570| 09 09 09 09 6c 69 6e 65 | 74 6f 28 30 2c 28 68 32 |....line|to(0,(h2|
|00003580| 2d 32 2a 63 29 29 3b 0d | 09 09 09 65 6e 64 3b 0d |-2*c));.|...end;.|
|00003590| 09 09 09 67 72 6f 75 70 | 3b 0d 09 09 09 64 73 65 |...group|;....dse|
|000035a0| 6c 65 63 74 61 6c 6c 3b | 09 09 09 0d 39 39 3a 65 |lectall;|....99:e|
|000035b0| 6e 64 3b 0d 72 75 6e 28 | 64 72 61 77 4e 75 74 29 |nd;.run(|drawNut)|
|000035c0| 3b 72 00 00 00 60 05 79 | 2c a4 00 00 00 00 00 3b |;r...`.y|,......;|
|000035d0| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|000035e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 ad |........|........|
|00003620| 53 e4 00 00 00 60 00 00 | 00 00 00 00 00 00 00 3b |S....`..|.......;|
|00003630| 00 00 00 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |...A....|........|
|00003640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003680| 00 00 00 00 09 a4 05 79 | 2c a4 01 a9 cf 70 00 31 |.......y|,....p.1|
|00003690| 00 00 00 40 0e 42 75 74 | 6f 6e 20 48 65 61 64 20 |...@.But|on Head |
|000036a0| 53 43 53 b2 e2 44 00 00 | 00 00 00 00 00 00 00 00 |SCS..D..|........|
|000036b0| 00 00 00 00 09 6f 70 72 | 6f 63 65 64 75 72 65 20 |.....opr|ocedure |
|000036c0| 64 72 61 77 42 48 53 43 | 53 3b 0d 6c 61 62 65 6c |drawBHSC|S;.label|
|000036d0| 20 31 30 2c 32 30 2c 33 | 30 2c 39 30 2c 39 39 3b | 10,20,3|0,90,99;|
|000036e0| 0d 76 61 72 0d 09 09 09 | 61 2c 62 2c 63 2c 64 2c |.var....|a,b,c,d,|
|000036f0| 64 69 61 2c 68 2c 6a 2c | 6c 2c 73 2c 66 2c 74 64 |dia,h,j,|l,s,f,td|
|00003700| 2c 74 6c 3a 72 65 61 6c | 3b 0d 09 09 09 70 2c 64 |,tl:real|;....p,d|
|00003710| 69 2c 6c 31 2c 72 2c 71 | 31 2c 71 32 2c 71 33 2c |i,l1,r,q|1,q2,q3,|
|00003720| 71 34 2c 79 3a 72 65 61 | 6c 3b 0d 09 09 09 69 2c |q4,y:rea|l;....i,|
|00003730| 74 70 69 63 2c 74 70 69 | 66 2c 6e 3a 69 6e 74 65 |tpic,tpi|f,n:inte|
|00003740| 67 65 72 3b 0d 09 09 09 | 61 6e 73 31 3a 73 74 72 |ger;....|ans1:str|
|00003750| 69 6e 67 3b 0d 09 09 09 | 61 6e 73 3a 62 6f 6f 6c |ing;....|ans:bool|
|00003760| 65 61 6e 3b 0d 62 65 67 | 69 6e 0d 09 09 09 64 73 |ean;.beg|in....ds|
|00003770| 65 6c 65 63 74 61 6c 6c | 3b 0d 09 09 09 31 30 3a |electall|;....10:|
|00003780| 64 69 61 3a 3d 72 65 61 | 6c 64 69 61 6c 6f 67 28 |dia:=rea|ldialog(|
|00003790| 27 45 6e 74 65 72 20 73 | 63 72 65 77 20 64 69 61 |'Enter s|crew dia|
|000037a0| 6d 65 74 65 72 27 2c 27 | 35 2f 38 27 29 3b 0d 09 |meter','|5/8');..|
|000037b0| 09 09 6c 3a 3d 72 65 61 | 6c 64 69 61 6c 6f 67 28 |..l:=rea|ldialog(|
|000037c0| 27 45 6e 74 65 72 20 73 | 63 72 65 77 20 6c 65 6e |'Enter s|crew len|
|000037d0| 67 74 68 27 2c 27 33 27 | 29 3b 0d 09 09 09 61 6e |gth','3'|);....an|
|000037e0| 73 31 3a 3d 73 74 72 64 | 69 61 6c 6f 67 28 27 54 |s1:=strd|ialog('T|
|000037f0| 79 70 65 20 6f 66 20 74 | 68 72 65 61 64 73 3a 0d |ype of t|hreads:.|
|00003800| 09 09 09 31 20 2d 20 44 | 65 74 61 69 6c 65 64 0d |...1 - D|etailed.|
|00003810| 09 09 09 32 20 2d 20 4e | 6f 6e 2d 64 65 74 61 69 |...2 - N|on-detai|
|00003820| 6c 65 64 27 2c 27 31 27 | 29 3b 0d 09 09 09 6f 70 |led','1'|);....op|
|00003830| 65 6e 28 27 42 48 53 43 | 53 2e 64 61 74 61 27 29 |en('BHSC|S.data')|
|00003840| 3b 0d 09 09 09 77 68 69 | 6c 65 20 6e 6f 74 20 65 |;....whi|le not e|
|00003850| 6f 6c 6e 28 27 42 48 53 | 43 53 2e 64 61 74 61 27 |oln('BHS|CS.data'|
|00003860| 29 20 64 6f 0d 09 09 09 | 62 65 67 69 6e 0d 09 09 |) do....|begin...|
|00003870| 09 09 09 09 72 65 61 64 | 6c 6e 28 64 2c 74 70 69 |....read|ln(d,tpi|
|00003880| 63 2c 74 70 69 66 2c 61 | 2c 68 2c 6a 2c 73 29 3b |c,tpif,a|,h,j,s);|
|00003890| 0d 09 09 09 09 09 09 69 | 66 20 64 69 61 3d 64 20 |.......i|f dia=d |
|000038a0| 74 68 65 6e 20 67 6f 74 | 6f 20 32 30 3b 0d 09 09 |then got|o 20;...|
|000038b0| 09 65 6e 64 3b 0d 09 09 | 09 63 6c 6f 73 65 28 27 |.end;...|.close('|
|000038c0| 42 48 53 43 53 2e 64 61 | 74 61 27 29 3b 0d 09 09 |BHSCS.da|ta');...|
|000038d0| 09 41 6e 73 3a 3d 79 6e | 64 69 61 6c 6f 67 28 27 |.Ans:=yn|dialog('|
|000038e0| 49 6e 76 61 6c 69 64 20 | 64 69 61 6d 65 74 65 72 |Invalid |diameter|
|000038f0| 2e 20 43 6f 6e 74 69 6e | 75 65 3f 27 29 3b 0d 09 |. Contin|ue?');..|
|00003900| 09 09 69 66 20 61 6e 73 | 20 74 68 65 6e 20 67 6f |..if ans| then go|
|00003910| 74 6f 20 31 30 0d 09 09 | 09 65 6c 73 65 20 67 6f |to 10...|.else go|
|00003920| 74 6f 20 39 39 3b 0d 09 | 09 09 32 30 3a 63 6c 6f |to 99;..|..20:clo|
|00003930| 73 65 28 27 42 48 53 43 | 53 2e 64 61 74 61 27 29 |se('BHSC|S.data')|
|00003940| 3b 0d 09 09 09 63 3a 3d | 31 2e 33 37 35 2a 6a 3b |;....c:=|1.375*j;|
|00003950| 0d 09 09 09 79 3a 3d 28 | 28 61 2f 32 29 5e 32 2d |....y:=(|(a/2)^2-|
|00003960| 28 63 2f 32 29 5e 32 2d | 28 68 2d 73 29 5e 32 29 |(c/2)^2-|(h-s)^2)|
|00003970| 2f 28 32 2a 28 68 2d 73 | 29 29 3b 0d 09 09 09 72 |/(2*(h-s|));....r|
|00003980| 3a 3d 73 71 72 74 28 79 | 5e 32 2b 28 61 2f 32 29 |:=sqrt(y|^2+(a/2)|
|00003990| 5e 32 29 3b 0d 09 09 09 | 71 32 3a 3d 72 61 64 32 |^2);....|q2:=rad2|
|000039a0| 64 65 67 28 61 72 63 73 | 69 6e 28 61 2f 28 32 2a |deg(arcs|in(a/(2*|
|000039b0| 72 29 29 29 3b 0d 09 09 | 09 71 31 3a 3d 72 61 64 |r)));...|.q1:=rad|
|000039c0| 32 64 65 67 28 61 72 63 | 73 69 6e 28 63 2f 28 32 |2deg(arc|sin(c/(2|
|000039d0| 2a 72 29 29 29 3b 0d 09 | 09 09 66 3a 3d 30 2e 35 |*r)));..|..f:=0.5|
|000039e0| 37 37 34 2a 6a 3b 0d 09 | 09 09 74 64 3a 3d 30 2e |774*j;..|..td:=0.|
|000039f0| 38 36 36 30 33 2f 74 70 | 69 63 3b 0d 09 09 09 70 |86603/tp|ic;....p|
|00003a00| 3a 3d 31 2f 74 70 69 63 | 3b 0d 09 09 09 64 69 3a |:=1/tpic|;....di:|
|00003a10| 3d 64 2d 32 2a 74 64 3b | 0d 09 09 09 62 3a 3d 70 |=d-2*td;|....b:=p|
|00003a20| 2f 32 3b 0d 7b 64 65 74 | 65 72 6d 69 6e 65 20 74 |/2;.{det|ermine t|
|00003a30| 68 72 65 61 64 20 6c 65 | 6e 67 74 68 7d 0d 09 09 |hread le|ngth}...|
|00003a40| 09 69 66 20 6c 20 3c 20 | 32 2a 64 20 2b 20 30 2e |.if l < |2*d + 0.|
|00003a50| 35 20 74 68 65 6e 0d 09 | 09 09 74 6c 3a 3d 6c 0d |5 then..|..tl:=l.|
|00003a60| 09 09 09 65 6c 73 65 20 | 69 66 20 6c 20 3c 20 34 |...else |if l < 4|
|00003a70| 2a 64 20 2b 20 31 20 74 | 68 65 6e 0d 09 09 09 74 |*d + 1 t|hen....t|
|00003a80| 6c 3a 3d 32 2a 64 20 2b | 20 30 2e 35 0d 09 09 09 |l:=2*d +| 0.5....|
|00003a90| 65 6c 73 65 20 74 6c 3a | 3d 6c 2f 32 3b 0d 09 09 |else tl:|=l/2;...|
|00003aa0| 09 6e 3a 3d 74 6c 2a 74 | 70 69 63 3b 0d 09 09 09 |.n:=tl*t|pic;....|
|00003ab0| 6c 31 3a 3d 6c 2d 28 6e | 2d 31 29 2a 70 3b 0d 7b |l1:=l-(n|-1)*p;.{|
|00003ac0| 64 72 61 77 20 68 65 61 | 64 20 70 6c 61 6e 20 76 |draw hea|d plan v|
|00003ad0| 69 65 77 7d 0d 09 09 09 | 6f 76 61 6c 28 2d 61 2f |iew}....|oval(-a/|
|00003ae0| 32 2c 61 2f 32 2c 61 2f | 32 2c 2d 61 2f 32 29 3b |2,a/2,a/|2,-a/2);|
|00003af0| 0d 09 09 09 6f 76 61 6c | 28 2d 63 2f 32 2c 63 2f |....oval|(-c/2,c/|
|00003b00| 32 2c 63 2f 32 2c 2d 63 | 2f 32 29 3b 0d 09 09 09 |2,c/2,-c|/2);....|
|00003b10| 6d 6f 76 65 74 6f 28 30 | 2c 66 29 3b 0d 09 09 09 |moveto(0|,f);....|
|00003b20| 72 65 6c 61 74 69 76 65 | 3b 0d 7b 64 72 61 77 20 |relative|;.{draw |
|00003b30| 68 65 78 20 73 6f 63 6b | 65 74 7d 0d 09 09 09 63 |hex sock|et}....c|
|00003b40| 6c 6f 73 65 70 6f 6c 79 | 3b 0d 09 09 09 70 6f 6c |losepoly|;....pol|
|00003b50| 79 28 66 2c 23 2d 33 30 | 2c 66 2c 23 2d 39 30 2c |y(f,#-30|,f,#-90,|
|00003b60| 66 2c 23 2d 31 35 30 2c | 66 2c 23 31 35 30 2c 66 |f,#-150,|f,#150,f|
|00003b70| 2c 23 39 30 29 3b 0d 09 | 09 09 67 72 6f 75 70 3b |,#90);..|..group;|
|00003b80| 0d 09 09 09 64 73 65 6c | 65 63 74 61 6c 6c 3b 0d |....dsel|ectall;.|
|00003b90| 7b 64 72 61 77 20 68 65 | 61 64 20 73 69 64 65 20 |{draw he|ad side |
|00003ba0| 76 69 65 77 7d 0d 09 09 | 09 6d 6f 76 65 74 6f 28 |view}...|.moveto(|
|00003bb0| 28 61 2b 6a 29 2f 32 2c | 2d 33 2a 61 2f 32 29 3b |(a+j)/2,|-3*a/2);|
|00003bc0| 0d 09 09 09 72 65 63 74 | 28 30 2c 30 2c 2d 61 2c |....rect|(0,0,-a,|
|00003bd0| 73 29 3b 0d 09 09 09 6d | 6f 76 65 74 6f 28 2d 28 |s);....m|oveto(-(|
|00003be0| 61 2d 63 29 2f 32 2c 68 | 29 3b 0d 09 09 09 6c 69 |a-c)/2,h|);....li|
|00003bf0| 6e 65 74 6f 28 2d 63 2c | 30 29 3b 0d 09 09 09 6d |neto(-c,|0);....m|
|00003c00| 6f 76 65 74 6f 28 2d 28 | 72 2d 63 2f 32 29 2c 28 |oveto(-(|r-c/2),(|
|00003c10| 72 2d 28 68 2d 73 2b 79 | 29 29 29 3b 0d 09 09 09 |r-(h-s+y|)));....|
|00003c20| 71 33 3a 3d 39 30 2b 71 | 31 3b 0d 09 09 09 71 34 |q3:=90+q|1;....q4|
|00003c30| 3a 3d 71 32 2d 71 31 3b | 0d 09 09 09 61 72 63 28 |:=q2-q1;|....arc(|
|00003c40| 30 2c 30 2c 32 2a 72 2c | 2d 32 2a 72 2c 71 33 2c |0,0,2*r,|-2*r,q3,|
|00003c50| 71 34 29 3b 0d 09 09 09 | 6d 6f 76 65 74 6f 28 32 |q4);....|moveto(2|
|00003c60| 2a 72 2c 30 29 3b 0d 09 | 09 09 71 33 3a 3d 39 30 |*r,0);..|..q3:=90|
|00003c70| 2d 71 32 3b 0d 09 09 09 | 61 72 63 28 30 2c 30 2c |-q2;....|arc(0,0,|
|00003c80| 2d 32 2a 72 2c 2d 32 2a | 72 2c 71 33 2c 71 34 29 |-2*r,-2*|r,q3,q4)|
|00003c90| 3b 0d 09 09 09 6d 6f 76 | 65 74 6f 28 2d 28 72 2b |;....mov|eto(-(r+|
|00003ca0| 64 2f 32 29 2c 2d 28 72 | 2d 79 2b 73 29 29 3b 0d |d/2),-(r|-y+s));.|
|00003cb0| 09 09 09 69 66 20 73 74 | 72 32 6e 75 6d 28 61 6e |...if st|r2num(an|
|00003cc0| 73 31 29 3d 31 20 74 68 | 65 6e 20 67 6f 74 6f 20 |s1)=1 th|en goto |
|00003cd0| 33 30 3b 0d 7b 64 72 61 | 77 20 6e 6f 2d 64 65 74 |30;.{dra|w no-det|
|00003ce0| 61 69 6c 20 74 68 72 65 | 61 64 73 7d 09 09 0d 09 |ail thre|ads}....|
|00003cf0| 09 09 70 6f 6c 79 28 30 | 2c 30 2c 30 2c 2d 28 6c |..poly(0|,0,0,-(l|
|00003d00| 2d 62 29 2c 74 64 2c 2d | 62 2c 28 64 2d 32 2a 74 |-b),td,-|b,(d-2*t|
|00003d10| 64 29 2c 30 2c 74 64 2c | 62 2c 30 2c 28 6c 2d 62 |d),0,td,|b,0,(l-b|
|00003d20| 29 29 3b 0d 09 09 09 6d | 6f 76 65 74 6f 28 30 2c |));....m|oveto(0,|
|00003d30| 2d 28 6c 2d 62 29 29 3b | 0d 09 09 09 6c 69 6e 65 |-(l-b));|....line|
|00003d40| 74 6f 28 2d 64 2c 30 29 | 3b 09 09 09 09 09 09 0d |to(-d,0)|;.......|
|00003d50| 09 09 09 50 65 6e 50 61 | 74 28 2d 32 29 3b 0d 09 |...PenPa|t(-2);..|
|00003d60| 09 09 6d 6f 76 65 74 6f | 28 74 64 2c 2d 62 29 3b |..moveto|(td,-b);|
|00003d70| 0d 09 09 09 6c 69 6e 65 | 74 6f 28 30 2c 74 6c 29 |....line|to(0,tl)|
|00003d80| 3b 0d 09 09 09 6d 6f 76 | 65 74 6f 28 28 64 2d 32 |;....mov|eto((d-2|
|00003d90| 2a 74 64 29 2c 30 29 3b | 0d 09 09 09 6c 69 6e 65 |*td),0);|....line|
|00003da0| 74 6f 28 30 2c 2d 74 6c | 29 3b 0d 09 09 09 50 65 |to(0,-tl|);....Pe|
|00003db0| 6e 50 61 74 28 32 29 3b | 0d 09 09 09 69 66 20 74 |nPat(2);|....if t|
|00003dc0| 6c 3d 6c 20 74 68 65 6e | 20 67 6f 74 6f 20 39 30 |l=l then| goto 90|
|00003dd0| 3b 0d 09 09 09 6d 6f 76 | 65 74 6f 28 74 64 2c 74 |;....mov|eto(td,t|
|00003de0| 6c 29 3b 0d 09 09 09 6c | 69 6e 65 74 6f 28 2d 64 |l);....l|ineto(-d|
|00003df0| 2c 30 29 3b 0d 09 09 09 | 67 6f 74 6f 20 39 30 3b |,0);....|goto 90;|
|00003e00| 0d 7b 64 72 61 77 20 64 | 65 74 61 69 6c 65 64 20 |.{draw d|etailed |
|00003e10| 74 68 72 65 61 64 73 7d | 0d 33 30 3a 6d 6f 76 65 |threads}|.30:move|
|00003e20| 74 6f 28 74 64 2c 2d 6c | 29 3b 0d 09 09 09 6c 69 |to(td,-l|);....li|
|00003e30| 6e 65 74 6f 28 64 69 2c | 30 29 3b 0d 09 09 09 6c |neto(di,|0);....l|
|00003e40| 69 6e 65 74 6f 28 74 64 | 2f 32 2c 70 2f 34 29 3b |ineto(td|/2,p/4);|
|00003e50| 0d 09 09 09 6c 69 6e 65 | 74 6f 28 2d 74 64 2f 32 |....line|to(-td/2|
|00003e60| 2c 70 2f 34 29 3b 0d 09 | 09 09 6c 69 6e 65 74 6f |,p/4);..|..lineto|
|00003e70| 28 2d 28 64 69 2b 74 64 | 29 2c 30 29 3b 0d 09 09 |(-(di+td|),0);...|
|00003e80| 09 6d 6f 76 65 74 6f 28 | 74 64 2c 2d 70 2f 32 29 |.moveto(|td,-p/2)|
|00003e90| 3b 09 09 09 0d 09 09 09 | 66 6f 72 20 69 3a 3d 6e |;.......|for i:=n|
|00003ea0| 2d 31 20 64 6f 77 6e 74 | 6f 20 31 20 64 6f 0d 09 |-1 downt|o 1 do..|
|00003eb0| 09 09 62 65 67 69 6e 0d | 09 09 09 09 09 09 6c 69 |..begin.|......li|
|00003ec0| 6e 65 74 6f 28 2d 74 64 | 2c 70 2f 32 29 3b 0d 09 |neto(-td|,p/2);..|
|00003ed0| 09 09 09 09 09 6c 69 6e | 65 74 6f 28 74 64 2c 70 |.....lin|eto(td,p|
|00003ee0| 2f 32 29 3b 0d 09 09 09 | 09 09 09 6c 69 6e 65 74 |/2);....|...linet|
|00003ef0| 6f 28 64 69 2c 70 2f 32 | 29 3b 0d 09 09 09 09 09 |o(di,p/2|);......|
|00003f00| 09 6c 69 6e 65 74 6f 28 | 74 64 2c 2d 70 2f 32 29 |.lineto(|td,-p/2)|
|00003f10| 3b 0d 09 09 09 09 09 09 | 6c 69 6e 65 74 6f 28 2d |;.......|lineto(-|
|00003f20| 74 64 2c 2d 70 2f 32 29 | 3b 0d 09 09 09 09 09 09 |td,-p/2)|;.......|
|00003f30| 6d 6f 76 65 74 6f 28 74 | 64 2c 70 2f 32 29 3b 0d |moveto(t|d,p/2);.|
|00003f40| 09 09 09 09 09 09 6c 69 | 6e 65 74 6f 28 2d 64 2c |......li|neto(-d,|
|00003f50| 2d 70 2f 32 29 3b 0d 09 | 09 09 09 09 09 6d 6f 76 |-p/2);..|.....mov|
|00003f60| 65 74 6f 28 74 64 2c 70 | 2f 32 29 3b 0d 09 09 09 |eto(td,p|/2);....|
|00003f70| 65 6e 64 3b 0d 09 09 09 | 6d 6f 76 65 74 6f 28 64 |end;....|moveto(d|
|00003f80| 2d 74 64 2c 6c 31 29 3b | 0d 09 09 09 6c 69 6e 65 |-td,l1);|....line|
|00003f90| 74 6f 28 30 2c 2d 28 6c | 31 2d 70 2f 32 29 29 3b |to(0,-(l|1-p/2));|
|00003fa0| 0d 09 09 09 6c 69 6e 65 | 74 6f 28 2d 64 2c 30 29 |....line|to(-d,0)|
|00003fb0| 3b 0d 09 09 09 6c 69 6e | 65 74 6f 28 30 2c 28 6c |;....lin|eto(0,(l|
|00003fc0| 31 2d 70 2f 32 29 29 3b | 0d 09 09 09 6d 6f 76 65 |1-p/2));|....move|
|00003fd0| 74 6f 28 30 2c 2d 28 6c | 31 2d 70 2f 32 29 29 3b |to(0,-(l|1-p/2));|
|00003fe0| 0d 09 09 09 6c 69 6e 65 | 74 6f 28 74 64 2c 2d 70 |....line|to(td,-p|
|00003ff0| 2f 32 29 3b 0d 39 30 3a | 67 72 6f 75 70 3b 0d 09 |/2);.90:|group;..|
|00004000| 09 09 64 73 65 6c 65 63 | 74 61 6c 6c 3b 0d 39 39 |..dselec|tall;.99|
|00004010| 3a 65 6e 64 3b 0d 72 75 | 6e 28 64 72 61 77 42 48 |:end;.ru|n(drawBH|
|00004020| 53 43 53 29 3b 77 00 00 | 00 60 00 00 00 00 00 00 |SCS);w..|.`......|
|00004030| 00 00 00 3b 00 00 00 41 | 00 00 00 00 00 00 00 00 |...;...A|........|
|00004040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004080| 00 00 01 ad 22 18 00 00 | 0a 29 05 79 2c a4 01 aa |...."...|.).y,...|
|00004090| 2e 0c 00 31 00 00 00 40 | 12 48 65 78 20 48 65 61 |...1...@|.Hex Hea|
|000040a0| 64 20 43 61 70 20 53 63 | 72 65 77 00 00 00 00 00 |d Cap Sc|rew.....|
|000040b0| 00 00 00 00 00 00 00 00 | 09 f4 70 72 6f 63 65 64 |........|..proced|
|000040c0| 75 72 65 20 64 72 61 77 | 48 48 43 53 3b 0d 6c 61 |ure draw|HHCS;.la|
|000040d0| 62 65 6c 20 31 30 2c 32 | 30 2c 33 30 2c 39 30 2c |bel 10,2|0,30,90,|
|000040e0| 39 39 3b 0d 76 61 72 0d | 09 09 09 61 2c 62 2c 63 |99;.var.|...a,b,c|
|000040f0| 2c 64 2c 6a 2c 68 2c 6c | 2c 73 2c 66 2c 79 2c 74 |,d,j,h,l|,s,f,y,t|
|00004100| 64 2c 74 6c 2c 64 69 61 | 3a 72 65 61 6c 3b 0d 09 |d,tl,dia|:real;..|
|00004110| 09 09 70 2c 64 69 2c 6c | 31 3a 72 65 61 6c 3b 0d |..p,di,l|1:real;.|
|00004120| 09 09 09 69 2c 74 70 69 | 63 2c 74 70 69 66 2c 6e |...i,tpi|c,tpif,n|
|00004130| 3a 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 66 69 6c |:integer|;....fil|
|00004140| 65 6e 61 6d 65 2c 61 6e | 73 31 3a 73 74 72 69 6e |ename,an|s1:strin|
|00004150| 67 3b 0d 09 09 09 61 6e | 73 3a 62 6f 6f 6c 65 61 |g;....an|s:boolea|
|00004160| 6e 3b 0d 62 65 67 69 6e | 0d 09 09 09 64 73 65 6c |n;.begin|....dsel|
|00004170| 65 63 74 61 6c 6c 3b 0d | 09 09 09 31 30 3a 64 69 |ectall;.|...10:di|
|00004180| 61 3a 3d 72 65 61 6c 64 | 69 61 6c 6f 67 28 27 45 |a:=reald|ialog('E|
|00004190| 6e 74 65 72 20 73 63 72 | 65 77 20 64 69 61 6d 65 |nter scr|ew diame|
|000041a0| 74 65 72 27 2c 27 31 2f | 32 27 29 3b 0d 09 09 09 |ter','1/|2');....|
|000041b0| 6c 3a 3d 72 65 61 6c 64 | 69 61 6c 6f 67 28 27 45 |l:=reald|ialog('E|
|000041c0| 6e 74 65 72 20 73 63 72 | 65 77 20 6c 65 6e 67 74 |nter scr|ew lengt|
|000041d0| 68 27 2c 27 32 27 29 3b | 0d 09 09 09 61 6e 73 31 |h','2');|....ans1|
|000041e0| 3a 3d 73 74 72 64 69 61 | 6c 6f 67 28 27 54 79 70 |:=strdia|log('Typ|
|000041f0| 65 20 6f 66 20 74 68 72 | 65 61 64 73 3a 0d 09 09 |e of thr|eads:...|
|00004200| 09 31 20 2d 20 44 65 74 | 61 69 6c 65 64 0d 09 09 |.1 - Det|ailed...|
|00004210| 09 32 20 2d 20 4e 6f 6e | 2d 64 65 74 61 69 6c 65 |.2 - Non|-detaile|
|00004220| 64 27 2c 27 31 27 29 3b | 0d 09 09 09 6f 70 65 6e |d','1');|....open|
|00004230| 28 27 48 48 43 53 2e 64 | 61 74 61 27 29 3b 0d 09 |('HHCS.d|ata');..|
|00004240| 09 09 77 68 69 6c 65 20 | 6e 6f 74 20 65 6f 6c 6e |..while |not eoln|
|00004250| 28 27 48 48 43 53 2e 64 | 61 74 61 27 29 20 64 6f |('HHCS.d|ata') do|
|00004260| 0d 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |....begi|n.......|
|00004270| 72 65 61 64 6c 6e 28 64 | 2c 74 70 69 63 2c 74 70 |readln(d|,tpic,tp|
|00004280| 69 66 2c 6a 2c 68 29 3b | 0d 09 09 09 09 09 09 69 |if,j,h);|.......i|
|00004290| 66 20 64 69 61 3d 64 20 | 74 68 65 6e 20 67 6f 74 |f dia=d |then got|
|000042a0| 6f 20 32 30 3b 0d 09 09 | 09 65 6e 64 3b 0d 09 09 |o 20;...|.end;...|
|000042b0| 09 63 6c 6f 73 65 28 27 | 48 48 43 53 2e 64 61 74 |.close('|HHCS.dat|
|000042c0| 61 27 29 3b 0d 09 09 09 | 41 6e 73 3a 3d 79 6e 64 |a');....|Ans:=ynd|
|000042d0| 69 61 6c 6f 67 28 27 49 | 6e 76 61 6c 69 64 20 64 |ialog('I|nvalid d|
|000042e0| 69 61 6d 65 74 65 72 2e | 20 43 6f 6e 74 69 6e 75 |iameter.| Continu|
|000042f0| 65 3f 27 29 3b 0d 09 09 | 09 69 66 20 61 6e 73 20 |e?');...|.if ans |
|00004300| 74 68 65 6e 20 67 6f 74 | 6f 20 31 30 0d 09 09 09 |then got|o 10....|
|00004310| 65 6c 73 65 20 67 6f 74 | 6f 20 39 39 3b 0d 09 09 |else got|o 99;...|
|00004320| 09 32 30 3a 63 6c 6f 73 | 65 28 27 48 48 43 53 2e |.20:clos|e('HHCS.|
|00004330| 64 61 74 61 27 29 3b 0d | 09 09 09 66 3a 3d 30 2e |data');.|...f:=0.|
|00004340| 35 37 37 33 35 2a 6a 3b | 0d 09 09 09 61 3a 3d 31 |57735*j;|....a:=1|
|00004350| 2e 31 35 34 37 30 2a 6a | 3b 0d 09 09 09 63 3a 3d |.15470*j|;....c:=|
|00004360| 30 2e 32 38 38 36 38 2a | 28 61 2d 6a 29 3b 0d 09 |0.28868*|(a-j);..|
|00004370| 09 09 79 3a 3d 28 61 2d | 66 29 2f 32 3b 0d 09 09 |..y:=(a-|f)/2;...|
|00004380| 09 73 3a 3d 28 61 2d 6a | 29 2f 32 3b 0d 09 09 09 |.s:=(a-j|)/2;....|
|00004390| 74 64 3a 3d 30 2e 38 36 | 36 30 33 2f 74 70 69 63 |td:=0.86|603/tpic|
|000043a0| 3b 0d 09 09 09 70 3a 3d | 31 2f 74 70 69 63 3b 0d |;....p:=|1/tpic;.|
|000043b0| 09 09 09 64 69 3a 3d 64 | 2d 32 2a 74 64 3b 0d 09 |...di:=d|-2*td;..|
|000043c0| 09 09 62 3a 3d 70 2f 32 | 3b 0d 7b 64 65 74 65 72 |..b:=p/2|;.{deter|
|000043d0| 6d 69 6e 65 20 74 68 72 | 65 61 64 20 6c 65 6e 67 |mine thr|ead leng|
|000043e0| 74 68 7d 0d 09 09 09 69 | 66 20 6c 20 3c 20 32 2a |th}....i|f l < 2*|
|000043f0| 64 20 2b 20 30 2e 35 20 | 74 68 65 6e 0d 09 09 09 |d + 0.5 |then....|
|00004400| 74 6c 3a 3d 6c 0d 09 09 | 09 65 6c 73 65 20 69 66 |tl:=l...|.else if|
|00004410| 20 6c 20 3c 20 34 2a 64 | 20 2b 20 31 20 74 68 65 | l < 4*d| + 1 the|
|00004420| 6e 0d 09 09 09 74 6c 3a | 3d 32 2a 64 20 2b 20 30 |n....tl:|=2*d + 0|
|00004430| 2e 35 0d 09 09 09 65 6c | 73 65 20 74 6c 3a 3d 6c |.5....el|se tl:=l|
|00004440| 2f 32 3b 0d 09 09 09 6e | 3a 3d 74 6c 2a 74 70 69 |/2;....n|:=tl*tpi|
|00004450| 63 3b 0d 09 09 09 6c 31 | 3a 3d 6c 2d 28 6e 2d 31 |c;....l1|:=l-(n-1|
|00004460| 29 2a 70 3b 0d 7b 64 72 | 61 77 20 68 65 61 64 20 |)*p;.{dr|aw head |
|00004470| 70 6c 61 6e 20 76 69 65 | 77 7d 0d 09 09 09 6f 76 |plan vie|w}....ov|
|00004480| 61 6c 28 2d 6a 2f 32 2c | 6a 2f 32 2c 6a 2f 32 2c |al(-j/2,|j/2,j/2,|
|00004490| 2d 6a 2f 32 29 3b 0d 09 | 09 09 6d 6f 76 65 74 6f |-j/2);..|..moveto|
|000044a0| 28 61 2f 32 2c 30 29 3b | 0d 09 09 09 72 65 6c 61 |(a/2,0);|....rela|
|000044b0| 74 69 76 65 3b 0d 09 09 | 09 63 6c 6f 73 65 70 6f |tive;...|.closepo|
|000044c0| 6c 79 3b 0d 09 09 09 70 | 6f 6c 79 28 30 2c 30 2c |ly;....p|oly(0,0,|
|000044d0| 66 2c 23 2d 31 32 30 2c | 66 2c 23 2d 31 38 30 2c |f,#-120,|f,#-180,|
|000044e0| 66 2c 23 31 32 30 2c 66 | 2c 23 36 30 2c 66 2c 23 |f,#120,f|,#60,f,#|
|000044f0| 30 29 3b 0d 09 09 09 67 | 72 6f 75 70 3b 0d 09 09 |0);....g|roup;...|
|00004500| 09 64 73 65 6c 65 63 74 | 61 6c 6c 3b 0d 09 09 09 |.dselect|all;....|
|00004510| 6d 6f 76 65 74 6f 28 79 | 2c 2d 31 2e 35 2a 6a 29 |moveto(y|,-1.5*j)|
|00004520| 3b 0d 7b 64 72 61 77 20 | 68 65 61 64 20 73 69 64 |;.{draw |head sid|
|00004530| 65 20 76 69 65 77 7d 3b | 0d 09 09 09 70 6f 6c 79 |e view};|....poly|
|00004540| 28 30 2c 30 2c 30 2c 2d | 28 68 2d 63 29 2c 2d 61 |(0,0,0,-|(h-c),-a|
|00004550| 2c 30 2c 30 2c 28 68 2d | 63 29 2c 73 2c 63 2c 28 |,0,0,(h-|c),s,c,(|
|00004560| 61 2d 32 2a 73 29 2c 30 | 29 3b 0d 09 09 09 6d 6f |a-2*s),0|);....mo|
|00004570| 76 65 74 6f 28 2d 28 61 | 2d 73 29 2c 2d 63 29 3b |veto(-(a|-s),-c);|
|00004580| 0d 09 09 09 6f 70 65 6e | 70 6f 6c 79 3b 0d 09 09 |....open|poly;...|
|00004590| 09 62 65 67 69 6e 70 6f | 6c 79 3b 0d 09 09 09 09 |.beginpo|ly;.....|
|000045a0| 09 09 63 75 72 76 65 74 | 68 72 6f 75 67 68 28 30 |..curvet|hrough(0|
|000045b0| 2c 30 29 3b 0d 09 09 09 | 09 09 09 63 75 72 76 65 |,0);....|...curve|
|000045c0| 74 68 72 6f 75 67 68 28 | 79 2f 32 2c 63 29 3b 0d |through(|y/2,c);.|
|000045d0| 09 09 09 09 09 09 63 75 | 72 76 65 74 68 72 6f 75 |......cu|rvethrou|
|000045e0| 67 68 28 79 2f 32 2c 2d | 63 29 3b 0d 09 09 09 65 |gh(y/2,-|c);....e|
|000045f0| 6e 64 70 6f 6c 79 3b 0d | 09 09 09 62 65 67 69 6e |ndpoly;.|...begin|
|00004600| 70 6f 6c 79 3b 0d 09 09 | 09 09 09 09 63 75 72 76 |poly;...|....curv|
|00004610| 65 74 68 72 6f 75 67 68 | 28 30 2c 30 29 3b 0d 09 |ethrough|(0,0);..|
|00004620| 09 09 09 09 09 63 75 72 | 76 65 74 68 72 6f 75 67 |.....cur|vethroug|
|00004630| 68 28 66 2f 32 2c 63 29 | 3b 0d 09 09 09 09 09 09 |h(f/2,c)|;.......|
|00004640| 63 75 72 76 65 74 68 72 | 6f 75 67 68 28 66 2f 32 |curvethr|ough(f/2|
|00004650| 2c 2d 63 29 3b 0d 09 09 | 09 65 6e 64 70 6f 6c 79 |,-c);...|.endpoly|
|00004660| 3b 0d 09 09 09 62 65 67 | 69 6e 70 6f 6c 79 3b 0d |;....beg|inpoly;.|
|00004670| 09 09 09 09 09 09 63 75 | 72 76 65 74 68 72 6f 75 |......cu|rvethrou|
|00004680| 67 68 28 30 2c 30 29 3b | 0d 09 09 09 09 09 09 63 |gh(0,0);|.......c|
|00004690| 75 72 76 65 74 68 72 6f | 75 67 68 28 79 2f 32 2c |urvethro|ugh(y/2,|
|000046a0| 63 29 3b 0d 09 09 09 09 | 09 09 63 75 72 76 65 74 |c);.....|..curvet|
|000046b0| 68 72 6f 75 67 68 28 79 | 2f 32 2c 2d 63 29 3b 0d |hrough(y|/2,-c);.|
|000046c0| 09 09 09 65 6e 64 70 6f | 6c 79 3b 0d 09 09 09 6d |...endpo|ly;....m|
|000046d0| 6f 76 65 74 6f 28 2d 79 | 2c 30 29 3b 0d 09 09 09 |oveto(-y|,0);....|
|000046e0| 6c 69 6e 65 74 6f 28 30 | 2c 2d 28 68 2d 63 29 29 |lineto(0|,-(h-c))|
|000046f0| 3b 0d 09 09 09 6d 6f 76 | 65 74 6f 28 2d 66 2c 30 |;....mov|eto(-f,0|
|00004700| 29 3b 0d 09 09 09 6c 69 | 6e 65 74 6f 28 30 2c 28 |);....li|neto(0,(|
|00004710| 68 2d 63 29 29 3b 0d 09 | 09 09 6d 6f 76 65 74 6f |h-c));..|..moveto|
|00004720| 28 2d 28 64 2d 66 29 2f | 32 2c 2d 28 68 2d 63 29 |(-(d-f)/|2,-(h-c)|
|00004730| 29 3b 0d 09 09 09 69 66 | 20 73 74 72 32 6e 75 6d |);....if| str2num|
|00004740| 28 61 6e 73 31 29 3d 31 | 20 74 68 65 6e 20 67 6f |(ans1)=1| then go|
|00004750| 74 6f 20 33 30 3b 0d 7b | 64 72 61 77 20 6e 6f 6e |to 30;.{|draw non|
|00004760| 2d 64 65 74 61 69 6c 65 | 64 20 74 68 72 65 61 64 |-detaile|d thread|
|00004770| 73 7d 0d 09 09 09 70 6f | 6c 79 28 30 2c 30 2c 30 |s}....po|ly(0,0,0|
|00004780| 2c 2d 28 6c 2d 62 29 2c | 74 64 2c 2d 62 2c 28 64 |,-(l-b),|td,-b,(d|
|00004790| 2d 32 2a 74 64 29 2c 30 | 2c 74 64 2c 62 2c 30 2c |-2*td),0|,td,b,0,|
|000047a0| 28 6c 2d 62 29 29 3b 0d | 09 09 09 6d 6f 76 65 74 |(l-b));.|...movet|
|000047b0| 6f 28 30 2c 2d 28 6c 2d | 62 29 29 3b 0d 09 09 09 |o(0,-(l-|b));....|
|000047c0| 6c 69 6e 65 74 6f 28 2d | 64 2c 30 29 3b 09 09 09 |lineto(-|d,0);...|
|000047d0| 09 09 09 0d 09 09 09 50 | 65 6e 50 61 74 28 2d 32 |.......P|enPat(-2|
|000047e0| 29 3b 0d 09 09 09 6d 6f | 76 65 74 6f 28 74 64 2c |);....mo|veto(td,|
|000047f0| 2d 62 29 3b 0d 09 09 09 | 6c 69 6e 65 74 6f 28 30 |-b);....|lineto(0|
|00004800| 2c 74 6c 29 3b 0d 09 09 | 09 6d 6f 76 65 74 6f 28 |,tl);...|.moveto(|
|00004810| 28 64 2d 32 2a 74 64 29 | 2c 30 29 3b 0d 09 09 09 |(d-2*td)|,0);....|
|00004820| 6c 69 6e 65 74 6f 28 30 | 2c 2d 74 6c 29 3b 0d 09 |lineto(0|,-tl);..|
|00004830| 09 09 50 65 6e 50 61 74 | 28 32 29 3b 0d 09 09 09 |..PenPat|(2);....|
|00004840| 69 66 20 74 6c 3d 6c 20 | 74 68 65 6e 20 67 6f 74 |if tl=l |then got|
|00004850| 6f 20 39 30 3b 0d 09 09 | 09 6d 6f 76 65 74 6f 28 |o 90;...|.moveto(|
|00004860| 74 64 2c 74 6c 29 3b 0d | 09 09 09 6c 69 6e 65 74 |td,tl);.|...linet|
|00004870| 6f 28 2d 64 2c 30 29 3b | 0d 09 09 09 67 6f 74 6f |o(-d,0);|....goto|
|00004880| 20 39 30 3b 0d 7b 64 72 | 61 77 20 64 65 74 61 69 | 90;.{dr|aw detai|
|00004890| 6c 65 64 20 74 68 72 65 | 61 64 73 7d 0d 33 30 3a |led thre|ads}.30:|
|000048a0| 6d 6f 76 65 74 6f 28 74 | 64 2c 2d 6c 29 3b 0d 09 |moveto(t|d,-l);..|
|000048b0| 09 09 6c 69 6e 65 74 6f | 28 64 69 2c 30 29 3b 0d |..lineto|(di,0);.|
|000048c0| 09 09 09 6c 69 6e 65 74 | 6f 28 74 64 2f 32 2c 70 |...linet|o(td/2,p|
|000048d0| 2f 34 29 3b 0d 09 09 09 | 6c 69 6e 65 74 6f 28 2d |/4);....|lineto(-|
|000048e0| 74 64 2f 32 2c 70 2f 34 | 29 3b 0d 09 09 09 6c 69 |td/2,p/4|);....li|
|000048f0| 6e 65 74 6f 28 2d 28 64 | 69 2b 74 64 29 2c 30 29 |neto(-(d|i+td),0)|
|00004900| 3b 0d 09 09 09 6d 6f 76 | 65 74 6f 28 74 64 2c 2d |;....mov|eto(td,-|
|00004910| 70 2f 32 29 3b 09 09 09 | 0d 09 09 09 66 6f 72 20 |p/2);...|....for |
|00004920| 69 3a 3d 6e 2d 31 20 64 | 6f 77 6e 74 6f 20 31 20 |i:=n-1 d|ownto 1 |
|00004930| 64 6f 0d 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |do....be|gin.....|
|00004940| 09 09 6c 69 6e 65 74 6f | 28 2d 74 64 2c 70 2f 32 |..lineto|(-td,p/2|
|00004950| 29 3b 0d 09 09 09 09 09 | 09 6c 69 6e 65 74 6f 28 |);......|.lineto(|
|00004960| 74 64 2c 70 2f 32 29 3b | 0d 09 09 09 09 09 09 6c |td,p/2);|.......l|
|00004970| 69 6e 65 74 6f 28 64 69 | 2c 70 2f 32 29 3b 0d 09 |ineto(di|,p/2);..|
|00004980| 09 09 09 09 09 6c 69 6e | 65 74 6f 28 74 64 2c 2d |.....lin|eto(td,-|
|00004990| 70 2f 32 29 3b 0d 09 09 | 09 09 09 09 6c 69 6e 65 |p/2);...|....line|
|000049a0| 74 6f 28 2d 74 64 2c 2d | 70 2f 32 29 3b 0d 09 09 |to(-td,-|p/2);...|
|000049b0| 09 09 09 09 6d 6f 76 65 | 74 6f 28 74 64 2c 70 2f |....move|to(td,p/|
|000049c0| 32 29 3b 0d 09 09 09 09 | 09 09 6c 69 6e 65 74 6f |2);.....|..lineto|
|000049d0| 28 2d 64 2c 2d 70 2f 32 | 29 3b 0d 09 09 09 09 09 |(-d,-p/2|);......|
|000049e0| 09 6d 6f 76 65 74 6f 28 | 74 64 2c 70 2f 32 29 3b |.moveto(|td,p/2);|
|000049f0| 0d 09 09 09 65 6e 64 3b | 0d 09 09 09 6d 6f 76 65 |....end;|....move|
|00004a00| 74 6f 28 64 2d 74 64 2c | 6c 31 29 3b 0d 09 09 09 |to(d-td,|l1);....|
|00004a10| 6c 69 6e 65 74 6f 28 30 | 2c 2d 28 6c 31 2d 70 2f |lineto(0|,-(l1-p/|
|00004a20| 32 29 29 3b 0d 09 09 09 | 6c 69 6e 65 74 6f 28 2d |2));....|lineto(-|
|00004a30| 64 2c 30 29 3b 0d 09 09 | 09 6c 69 6e 65 74 6f 28 |d,0);...|.lineto(|
|00004a40| 30 2c 28 6c 31 2d 70 2f | 32 29 29 3b 0d 09 09 09 |0,(l1-p/|2));....|
|00004a50| 6d 6f 76 65 74 6f 28 30 | 2c 2d 28 6c 31 2d 70 2f |moveto(0|,-(l1-p/|
|00004a60| 32 29 29 3b 0d 09 09 09 | 6c 69 6e 65 74 6f 28 74 |2));....|lineto(t|
|00004a70| 64 2c 2d 70 2f 32 29 3b | 0d 09 09 09 39 30 3a 67 |d,-p/2);|....90:g|
|00004a80| 72 6f 75 70 3b 0d 09 09 | 09 64 73 65 6c 65 63 74 |roup;...|.dselect|
|00004a90| 61 6c 6c 3b 09 09 09 0d | 39 39 3a 65 6e 64 3b 0d |all;....|99:end;.|
|00004aa0| 72 75 6e 28 64 72 61 77 | 48 48 43 53 29 3b 61 00 |run(draw|HHCS);a.|
|00004ab0| 00 00 60 05 79 2c a4 00 | 00 00 00 00 3b 00 00 00 |..`.y,..|....;...|
|00004ac0| 41 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |A.......|........|
|00004ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b00| 00 00 00 00 00 00 00 00 | 00 00 00 01 ad 33 48 00 |........|.....3H.|
|00004b10| 00 00 60 05 79 2c a4 00 | 00 00 00 00 3b 00 00 00 |..`.y,..|....;...|
|00004b20| 41 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |A.......|........|
|00004b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b70| 00 00 60 00 00 00 00 00 | 00 00 00 00 3b 00 00 00 |..`.....|....;...|
|00004b80| 41 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |A.......|........|
|00004b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bd0| 00 08 98 05 79 2c a4 01 | aa 04 ec 00 31 00 00 00 |....y,..|....1...|
|00004be0| 40 15 53 6f 63 6b 65 74 | 20 48 65 61 64 20 43 61 |@.Socket| Head Ca|
|00004bf0| 70 20 53 63 72 65 77 00 | 00 00 00 01 10 00 00 00 |p Screw.|........|
|00004c00| 00 08 63 70 72 6f 63 65 | 64 75 72 65 20 64 72 61 |..cproce|dure dra|
|00004c10| 77 53 48 43 53 3b 0d 6c | 61 62 65 6c 20 31 30 2c |wSHCS;.l|abel 10,|
|00004c20| 32 30 2c 33 30 2c 39 30 | 2c 39 39 3b 0d 76 61 72 |20,30,90|,99;.var|
|00004c30| 0d 09 09 09 61 2c 62 2c | 63 2c 64 2c 64 69 61 2c |....a,b,|c,d,dia,|
|00004c40| 68 2c 6a 2c 6c 2c 73 2c | 66 2c 74 64 2c 74 6c 3a |h,j,l,s,|f,td,tl:|
|00004c50| 72 65 61 6c 3b 0d 09 09 | 09 70 2c 64 69 2c 6c 31 |real;...|.p,di,l1|
|00004c60| 3a 72 65 61 6c 3b 0d 09 | 09 09 69 2c 74 70 69 63 |:real;..|..i,tpic|
|00004c70| 2c 74 70 69 66 2c 6e 3a | 69 6e 74 65 67 65 72 3b |,tpif,n:|integer;|
|00004c80| 0d 09 09 09 66 69 6c 65 | 6e 61 6d 65 2c 61 6e 73 |....file|name,ans|
|00004c90| 31 3a 73 74 72 69 6e 67 | 3b 0d 09 09 09 61 6e 73 |1:string|;....ans|
|00004ca0| 3a 62 6f 6f 6c 65 61 6e | 3b 0d 62 65 67 69 6e 0d |:boolean|;.begin.|
|00004cb0| 09 09 09 64 73 65 6c 65 | 63 74 61 6c 6c 3b 0d 09 |...dsele|ctall;..|
|00004cc0| 09 09 31 30 3a 64 69 61 | 3a 3d 72 65 61 6c 64 69 |..10:dia|:=realdi|
|00004cd0| 61 6c 6f 67 28 27 45 6e | 74 65 72 20 73 63 72 65 |alog('En|ter scre|
|00004ce0| 77 20 64 69 61 6d 65 74 | 65 72 27 2c 27 31 2f 32 |w diamet|er','1/2|
|00004cf0| 27 29 3b 0d 09 09 09 6c | 3a 3d 72 65 61 6c 64 69 |');....l|:=realdi|
|00004d00| 61 6c 6f 67 28 27 45 6e | 74 65 72 20 73 63 72 65 |alog('En|ter scre|
|00004d10| 77 20 6c 65 6e 67 74 68 | 27 2c 27 32 27 29 3b 0d |w length|','2');.|
|00004d20| 09 09 09 61 6e 73 31 3a | 3d 73 74 72 64 69 61 6c |...ans1:|=strdial|
|00004d30| 6f 67 28 27 54 79 70 65 | 20 6f 66 20 74 68 72 65 |og('Type| of thre|
|00004d40| 61 64 73 3a 0d 09 09 09 | 31 20 2d 20 44 65 74 61 |ads:....|1 - Deta|
|00004d50| 69 6c 65 64 0d 09 09 09 | 32 20 2d 20 4e 6f 6e 2d |iled....|2 - Non-|
|00004d60| 64 65 74 61 69 6c 65 64 | 27 2c 27 31 27 29 3b 0d |detailed|','1');.|
|00004d70| 09 09 09 6f 70 65 6e 28 | 27 53 48 43 53 2e 64 61 |...open(|'SHCS.da|
|00004d80| 74 61 27 29 3b 0d 09 09 | 09 77 68 69 6c 65 20 6e |ta');...|.while n|
|00004d90| 6f 74 20 65 6f 6c 6e 28 | 27 53 48 43 53 2e 64 61 |ot eoln(|'SHCS.da|
|00004da0| 74 61 27 29 20 64 6f 0d | 09 09 09 62 65 67 69 6e |ta') do.|...begin|
|00004db0| 0d 09 09 09 09 09 09 72 | 65 61 64 6c 6e 28 64 2c |.......r|eadln(d,|
|00004dc0| 74 70 69 63 2c 74 70 69 | 66 2c 61 2c 68 2c 6a 2c |tpic,tpi|f,a,h,j,|
|00004dd0| 73 29 3b 0d 09 09 09 09 | 09 09 69 66 20 64 69 61 |s);.....|..if dia|
|00004de0| 3d 64 20 74 68 65 6e 20 | 67 6f 74 6f 20 32 30 3b |=d then |goto 20;|
|00004df0| 0d 09 09 09 65 6e 64 3b | 0d 09 09 09 63 6c 6f 73 |....end;|....clos|
|00004e00| 65 28 27 53 48 43 53 2e | 64 61 74 61 27 29 3b 0d |e('SHCS.|data');.|
|00004e10| 09 09 09 41 6e 73 3a 3d | 79 6e 64 69 61 6c 6f 67 |...Ans:=|yndialog|
|00004e20| 28 27 49 6e 76 61 6c 69 | 64 20 64 69 61 6d 65 74 |('Invali|d diamet|
|00004e30| 65 72 2e 20 43 6f 6e 74 | 69 6e 75 65 3f 27 29 3b |er. Cont|inue?');|
|00004e40| 0d 09 09 09 69 66 20 61 | 6e 73 20 74 68 65 6e 20 |....if a|ns then |
|00004e50| 67 6f 74 6f 20 31 30 0d | 09 09 09 65 6c 73 65 20 |goto 10.|...else |
|00004e60| 67 6f 74 6f 20 39 39 3b | 0d 09 09 09 32 30 3a 63 |goto 99;|....20:c|
|00004e70| 6c 6f 73 65 28 27 53 48 | 43 53 2e 64 61 74 61 27 |lose('SH|CS.data'|
|00004e80| 29 3b 0d 09 09 09 63 3a | 3d 61 2d 33 2e 34 36 34 |);....c:|=a-3.464|
|00004e90| 31 2a 28 68 2d 73 29 3b | 0d 09 09 09 66 3a 3d 30 |1*(h-s);|....f:=0|
|00004ea0| 2e 35 37 37 34 2a 6a 3b | 0d 09 09 09 74 64 3a 3d |.5774*j;|....td:=|
|00004eb0| 30 2e 38 36 36 30 33 2f | 74 70 69 63 3b 0d 09 09 |0.86603/|tpic;...|
|00004ec0| 09 70 3a 3d 31 2f 74 70 | 69 63 3b 0d 09 09 09 64 |.p:=1/tp|ic;....d|
|00004ed0| 69 3a 3d 64 2d 32 2a 74 | 64 3b 0d 09 09 09 62 3a |i:=d-2*t|d;....b:|
|00004ee0| 3d 70 2f 32 3b 0d 7b 64 | 65 74 65 72 6d 69 6e 65 |=p/2;.{d|etermine|
|00004ef0| 20 74 68 72 65 61 64 20 | 6c 65 6e 67 74 68 7d 0d | thread |length}.|
|00004f00| 09 09 09 69 66 20 6c 20 | 3c 20 32 2a 64 20 2b 20 |...if l |< 2*d + |
|00004f10| 30 2e 35 20 74 68 65 6e | 0d 09 09 09 74 6c 3a 3d |0.5 then|....tl:=|
|00004f20| 6c 0d 09 09 09 65 6c 73 | 65 20 69 66 20 6c 20 3c |l....els|e if l <|
|00004f30| 20 34 2a 64 20 2b 20 31 | 20 74 68 65 6e 0d 09 09 | 4*d + 1| then...|
|00004f40| 09 74 6c 3a 3d 32 2a 64 | 20 2b 20 30 2e 35 0d 09 |.tl:=2*d| + 0.5..|
|00004f50| 09 09 65 6c 73 65 20 74 | 6c 3a 3d 6c 2f 32 3b 0d |..else t|l:=l/2;.|
|00004f60| 09 09 09 6e 3a 3d 74 6c | 2a 74 70 69 63 3b 0d 09 |...n:=tl|*tpic;..|
|00004f70| 09 09 6c 31 3a 3d 6c 2d | 28 6e 2d 31 29 2a 70 3b |..l1:=l-|(n-1)*p;|
|00004f80| 0d 7b 64 72 61 77 20 68 | 65 61 64 20 70 6c 61 6e |.{draw h|ead plan|
|00004f90| 20 76 69 65 77 7d 0d 09 | 09 09 6f 76 61 6c 28 2d | view}..|..oval(-|
|00004fa0| 61 2f 32 2c 61 2f 32 2c | 61 2f 32 2c 2d 61 2f 32 |a/2,a/2,|a/2,-a/2|
|00004fb0| 29 3b 0d 09 09 09 6f 76 | 61 6c 28 2d 63 2f 32 2c |);....ov|al(-c/2,|
|00004fc0| 63 2f 32 2c 63 2f 32 2c | 2d 63 2f 32 29 3b 0d 09 |c/2,c/2,|-c/2);..|
|00004fd0| 09 09 6d 6f 76 65 74 6f | 28 30 2c 66 29 3b 0d 09 |..moveto|(0,f);..|
|00004fe0| 09 09 72 65 6c 61 74 69 | 76 65 3b 0d 7b 64 72 61 |..relati|ve;.{dra|
|00004ff0| 77 20 68 65 78 20 73 6f | 63 6b 65 74 7d 0d 09 09 |w hex so|cket}...|
|00005000| 09 63 6c 6f 73 65 70 6f | 6c 79 3b 0d 09 09 09 70 |.closepo|ly;....p|
|00005010| 6f 6c 79 28 66 2c 23 2d | 33 30 2c 66 2c 23 2d 39 |oly(f,#-|30,f,#-9|
|00005020| 30 2c 66 2c 23 2d 31 35 | 30 2c 66 2c 23 31 35 30 |0,f,#-15|0,f,#150|
|00005030| 2c 66 2c 23 39 30 29 3b | 0d 09 09 09 67 72 6f 75 |,f,#90);|....grou|
|00005040| 70 3b 0d 09 09 09 64 73 | 65 6c 65 63 74 61 6c 6c |p;....ds|electall|
|00005050| 3b 0d 7b 64 72 61 77 20 | 68 65 61 64 20 73 69 64 |;.{draw |head sid|
|00005060| 65 20 76 69 65 77 7d 0d | 09 09 09 6d 6f 76 65 74 |e view}.|...movet|
|00005070| 6f 28 28 61 2b 6a 29 2f | 32 2c 2d 33 2a 61 2f 32 |o((a+j)/|2,-3*a/2|
|00005080| 29 3b 0d 09 09 09 70 6f | 6c 79 28 30 2c 30 2c 30 |);....po|ly(0,0,0|
|00005090| 2c 2d 73 2c 2d 61 2c 30 | 2c 30 2c 73 2c 28 61 2d |,-s,-a,0|,0,s,(a-|
|000050a0| 63 29 2f 32 2c 28 68 2d | 73 29 2c 63 2c 30 2c 28 |c)/2,(h-|s),c,0,(|
|000050b0| 61 2d 63 29 2f 32 2c 2d | 28 68 2d 73 29 29 3b 0d |a-c)/2,-|(h-s));.|
|000050c0| 09 09 09 6c 69 6e 65 74 | 6f 28 2d 61 2c 30 29 3b |...linet|o(-a,0);|
|000050d0| 0d 09 09 09 69 66 20 73 | 74 72 32 6e 75 6d 28 61 |....if s|tr2num(a|
|000050e0| 6e 73 31 29 3d 31 20 74 | 68 65 6e 20 67 6f 74 6f |ns1)=1 t|hen goto|
|000050f0| 20 33 30 3b 0d 7b 64 72 | 61 77 20 6e 6f 2d 64 65 | 30;.{dr|aw no-de|
|00005100| 74 61 69 6c 20 74 68 72 | 65 61 64 73 7d 09 09 0d |tail thr|eads}...|
|00005110| 09 09 09 6d 6f 76 65 74 | 6f 28 28 61 2d 64 29 2f |...movet|o((a-d)/|
|00005120| 32 2c 2d 73 29 3b 0d 09 | 09 09 70 6f 6c 79 28 30 |2,-s);..|..poly(0|
|00005130| 2c 30 2c 30 2c 2d 28 6c | 2d 62 29 2c 74 64 2c 2d |,0,0,-(l|-b),td,-|
|00005140| 62 2c 28 64 2d 32 2a 74 | 64 29 2c 30 2c 74 64 2c |b,(d-2*t|d),0,td,|
|00005150| 62 2c 30 2c 28 6c 2d 62 | 29 29 3b 0d 09 09 09 6d |b,0,(l-b|));....m|
|00005160| 6f 76 65 74 6f 28 30 2c | 2d 28 6c 2d 62 29 29 3b |oveto(0,|-(l-b));|
|00005170| 0d 09 09 09 6c 69 6e 65 | 74 6f 28 2d 64 2c 30 29 |....line|to(-d,0)|
|00005180| 3b 09 09 09 09 09 09 0d | 09 09 09 50 65 6e 50 61 |;.......|...PenPa|
|00005190| 74 28 2d 32 29 3b 0d 09 | 09 09 6d 6f 76 65 74 6f |t(-2);..|..moveto|
|000051a0| 28 74 64 2c 2d 62 29 3b | 0d 09 09 09 6c 69 6e 65 |(td,-b);|....line|
|000051b0| 74 6f 28 30 2c 74 6c 29 | 3b 0d 09 09 09 6d 6f 76 |to(0,tl)|;....mov|
|000051c0| 65 74 6f 28 28 64 2d 32 | 2a 74 64 29 2c 30 29 3b |eto((d-2|*td),0);|
|000051d0| 0d 09 09 09 6c 69 6e 65 | 74 6f 28 30 2c 2d 74 6c |....line|to(0,-tl|
|000051e0| 29 3b 0d 09 09 09 50 65 | 6e 50 61 74 28 32 29 3b |);....Pe|nPat(2);|
|000051f0| 0d 09 09 09 69 66 20 74 | 6c 3d 6c 20 74 68 65 6e |....if t|l=l then|
|00005200| 20 67 6f 74 6f 20 39 30 | 3b 0d 09 09 09 6d 6f 76 | goto 90|;....mov|
|00005210| 65 74 6f 28 74 64 2c 74 | 6c 29 3b 0d 09 09 09 6c |eto(td,t|l);....l|
|00005220| 69 6e 65 74 6f 28 2d 64 | 2c 30 29 3b 0d 09 09 09 |ineto(-d|,0);....|
|00005230| 67 6f 74 6f 20 39 30 3b | 0d 7b 64 72 61 77 20 64 |goto 90;|.{draw d|
|00005240| 65 74 61 69 6c 65 64 20 | 74 68 72 65 61 64 73 7d |etailed |threads}|
|00005250| 0d 33 30 3a 6d 6f 76 65 | 74 6f 28 28 61 2d 64 69 |.30:move|to((a-di|
|00005260| 29 2f 32 2c 2d 28 6c 2b | 73 29 29 3b 0d 09 09 09 |)/2,-(l+|s));....|
|00005270| 6c 69 6e 65 74 6f 28 64 | 69 2c 30 29 3b 0d 09 09 |lineto(d|i,0);...|
|00005280| 09 6c 69 6e 65 74 6f 28 | 74 64 2f 32 2c 70 2f 34 |.lineto(|td/2,p/4|
|00005290| 29 3b 0d 09 09 09 6c 69 | 6e 65 74 6f 28 2d 74 64 |);....li|neto(-td|
|000052a0| 2f 32 2c 70 2f 34 29 3b | 0d 09 09 09 6c 69 6e 65 |/2,p/4);|....line|
|000052b0| 74 6f 28 2d 28 64 69 2b | 74 64 29 2c 30 29 3b 0d |to(-(di+|td),0);.|
|000052c0| 09 09 09 6d 6f 76 65 74 | 6f 28 74 64 2c 2d 70 2f |...movet|o(td,-p/|
|000052d0| 32 29 3b 09 09 09 0d 09 | 09 09 66 6f 72 20 69 3a |2);.....|..for i:|
|000052e0| 3d 6e 2d 31 20 64 6f 77 | 6e 74 6f 20 31 20 64 6f |=n-1 dow|nto 1 do|
|000052f0| 0d 09 09 09 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |....begi|n.......|
|00005300| 6c 69 6e 65 74 6f 28 2d | 74 64 2c 70 2f 32 29 3b |lineto(-|td,p/2);|
|00005310| 0d 09 09 09 09 09 09 6c | 69 6e 65 74 6f 28 74 64 |.......l|ineto(td|
|00005320| 2c 70 2f 32 29 3b 0d 09 | 09 09 09 09 09 6c 69 6e |,p/2);..|.....lin|
|00005330| 65 74 6f 28 64 69 2c 70 | 2f 32 29 3b 0d 09 09 09 |eto(di,p|/2);....|
|00005340| 09 09 09 6c 69 6e 65 74 | 6f 28 74 64 2c 2d 70 2f |...linet|o(td,-p/|
|00005350| 32 29 3b 0d 09 09 09 09 | 09 09 6c 69 6e 65 74 6f |2);.....|..lineto|
|00005360| 28 2d 74 64 2c 2d 70 2f | 32 29 3b 0d 09 09 09 09 |(-td,-p/|2);.....|
|00005370| 09 09 6d 6f 76 65 74 6f | 28 74 64 2c 70 2f 32 29 |..moveto|(td,p/2)|
|00005380| 3b 0d 09 09 09 09 09 09 | 6c 69 6e 65 74 6f 28 2d |;.......|lineto(-|
|00005390| 64 2c 2d 70 2f 32 29 3b | 0d 09 09 09 09 09 09 6d |d,-p/2);|.......m|
|000053a0| 6f 76 65 74 6f 28 74 64 | 2c 70 2f 32 29 3b 0d 09 |oveto(td|,p/2);..|
|000053b0| 09 09 65 6e 64 3b 0d 09 | 09 09 6d 6f 76 65 74 6f |..end;..|..moveto|
|000053c0| 28 64 2d 74 64 2c 6c 31 | 29 3b 0d 09 09 09 6c 69 |(d-td,l1|);....li|
|000053d0| 6e 65 74 6f 28 30 2c 2d | 28 6c 31 2d 70 2f 32 29 |neto(0,-|(l1-p/2)|
|000053e0| 29 3b 0d 09 09 09 6c 69 | 6e 65 74 6f 28 2d 64 2c |);....li|neto(-d,|
|000053f0| 30 29 3b 0d 09 09 09 6c | 69 6e 65 74 6f 28 30 2c |0);....l|ineto(0,|
|00005400| 28 6c 31 2d 70 2f 32 29 | 29 3b 0d 09 09 09 6d 6f |(l1-p/2)|);....mo|
|00005410| 76 65 74 6f 28 30 2c 2d | 28 6c 31 2d 70 2f 32 29 |veto(0,-|(l1-p/2)|
|00005420| 29 3b 0d 09 09 09 6c 69 | 6e 65 74 6f 28 74 64 2c |);....li|neto(td,|
|00005430| 2d 70 2f 32 29 3b 0d 39 | 30 3a 67 72 6f 75 70 3b |-p/2);.9|0:group;|
|00005440| 0d 09 09 09 64 73 65 6c | 65 63 74 61 6c 6c 3b 0d |....dsel|ectall;.|
|00005450| 39 39 3a 65 6e 64 3b 0d | 72 75 6e 28 64 72 61 77 |99:end;.|run(draw|
|00005460| 53 48 43 53 29 3b 61 00 | 00 00 60 00 00 00 00 00 |SHCS);a.|..`.....|
|00005470| 00 00 00 00 3b 00 00 00 | 41 00 00 00 00 00 00 00 |....;...|A.......|
|00005480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054c0| 00 00 00 01 ad 83 94 00 | 00 00 16 00 00 00 00 00 |........|........|
|000054d0| 00 00 00 00 00 00 00 00 | 00 01 aa 68 5c 00 00 00 |........|...h\...|
|000054e0| 16 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000054f0| aa 6f 78 00 00 00 4a 00 | 00 00 00 00 00 00 00 00 |.ox...J.|........|
|00005500| 36 00 00 00 41 00 00 00 | 00 00 00 00 00 00 00 00 |6...A...|........|
|00005510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 aa 68 |........|.......h|
|00005520| 70 01 aa 68 70 00 00 00 | 00 00 00 00 00 00 00 00 |p..hp...|........|
|00005530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005540| 16 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00005550| aa 54 20 00 00 01 30 05 | 79 2c a4 01 aa 57 e8 00 |.T ...0.|y,...W..|
|00005560| 1f 00 01 00 41 00 00 ff | 00 ff 00 00 00 00 4b 74 |....A...|......Kt|
|00005570| e5 ff cb 9d cb ff b5 a6 | c0 00 34 81 d2 01 aa 70 |........|..4....p|
|00005580| c0 01 a9 ca ac 00 00 00 | 00 07 4c 61 79 65 72 2d |........|..Layer-|
|00005590| 31 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |1.......|........|
|000055a0| 00 40 00 00 00 00 00 00 | 00 00 08 00 00 00 00 00 |.@......|........|
|000055b0| 00 00 00 00 00 00 00 00 | 00 00 00 3f ff 80 00 00 |........|...?....|
|000055c0| 00 00 00 00 00 3f f0 97 | e7 d1 6f 73 66 df 50 bf |.....?..|..osf.P.|
|000055d0| f0 97 e7 d1 6f 73 66 df | 50 00 00 00 00 97 e8 00 |....osf.|P.......|
|000055e0| 00 ff ff 68 18 40 0c d9 | 03 8e 38 e3 8e 38 e4 40 |...h.@..|..8..8.@|
|000055f0| 11 86 d2 20 00 00 00 00 | 00 00 00 01 21 00 00 00 |... ....|....!...|
|00005600| ec 00 01 43 92 00 73 70 | ae ff 8c 8f 52 00 4d f1 |...C..sp|....R.M.|
|00005610| 74 ff b1 a2 b1 00 02 40 | 00 00 00 00 00 00 00 00 |t......@|........|
|00005620| 00 00 00 00 00 00 00 40 | 00 00 00 00 00 00 00 00 |.......@|........|
|00005630| 00 00 00 00 00 00 00 40 | 00 00 00 00 00 00 00 00 |.......@|........|
|00005640| 00 00 00 00 00 00 00 00 | 06 00 94 ed 00 00 93 6e |........|.......n|
|00005650| 30 00 4a 76 80 ff b5 89 | 80 ff b5 89 80 00 4a 76 |0.Jv....|......Jv|
|00005660| 80 00 00 00 00 00 00 00 | 00 00 00 00 34 81 d2 00 |........|....4...|
|00005670| 4b 74 e5 00 00 00 00 ff | cb 9d cb ff b5 a6 c0 00 |Kt......|........|
|00005680| 00 00 00 00 00 00 26 00 | 00 00 00 00 00 00 00 00 |......&.|........|
|00005690| 2c 00 00 00 40 00 00 00 | 00 00 00 00 00 00 00 00 |,...@...|........|
|000056a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 4a 05 79 2c |........|....J.y,|
|000056b0| a4 00 00 00 00 00 0b 00 | 00 00 40 02 01 ff 00 ff |........|..@.....|
|000056c0| 00 00 00 00 36 8c d8 ff | cb 9d cb 00 2b 1b 28 ff |....6...|....+.(.|
|000056d0| d8 d4 b4 01 aa 55 18 01 | aa 55 b4 00 00 00 00 00 |.....U..|.U......|
|000056e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056f0| 00 00 00 00 00 00 66 05 | 79 2c a4 00 00 00 00 00 |......f.|y,......|
|00005700| 05 00 00 00 41 02 01 ff | 00 ff 00 00 00 00 36 8c |....A...|......6.|
|00005710| d8 ff cb 9d cb 00 2b 1b | 28 ff d8 d4 b4 00 01 00 |......+.|(.......|
|00005720| 07 00 30 d4 00 ff d8 d4 | b4 00 30 d4 00 ff d8 d4 |..0.....|..0.....|
|00005730| b4 00 2b 1b 28 ff d5 86 | fa 00 2b 1b 28 ff ce eb |..+.(...|..+.(...|
|00005740| 86 00 30 d4 00 ff cb 9d | cb 00 36 8c d8 ff ce eb |..0.....|..6.....|
|00005750| 86 00 36 8c d8 ff d5 86 | fa 00 00 00 2a 05 79 2c |..6.....|....*.y,|
|00005760| a4 00 00 00 00 00 04 00 | 00 00 41 02 01 ff 00 ff |........|..A.....|
|00005770| 00 00 00 00 36 8c d8 ff | cc 80 68 00 2b 1b 28 ff |....6...|..h.+.(.|
|00005780| d7 f2 18 00 00 00 2a 05 | 79 2c a4 00 00 00 00 00 |......*.|y,......|
|00005790| 04 00 00 00 41 02 01 ff | 00 ff 00 00 00 00 34 12 |....A...|......4.|
|000057a0| 14 ff ce fb 2c 00 2d 95 | ec ff d5 77 54 00 00 00 |....,.-.|...wT...|
|000057b0| 2a 05 79 2c a4 00 00 00 | 00 00 04 00 00 00 41 fe |*.y,....|......A.|
|000057c0| 01 ff 00 ff 00 00 00 00 | 34 a4 90 ff ce 68 b0 00 |........|4....h..|
|000057d0| 2d 03 70 ff d6 09 d0 00 | 00 00 16 00 00 00 00 00 |-.p.....|........|
|000057e0| 00 00 00 00 00 00 00 00 | 00 01 aa 70 c0 00 00 00 |........|...p....|
|000057f0| 4a 05 79 2c a4 00 00 00 | 00 00 0b 00 00 00 40 02 |J.y,....|......@.|
|00005800| 01 ff 00 ff 00 00 00 00 | 26 26 29 ff cb 9d cb 00 |........|&&).....|
|00005810| 1f 0f 26 ff d8 d4 b4 01 | aa 2c 84 01 aa 68 a4 00 |..&.....|.,...h..|
|00005820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005830| 00 00 00 00 00 00 00 00 | 00 00 66 05 79 2c a4 00 |........|..f.y,..|
|00005840| 00 00 00 00 05 00 00 00 | 41 02 01 ff 00 ff 00 00 |........|A.......|
|00005850| 00 00 25 e5 26 ff cb 9d | cb 00 1f 0f 26 ff d8 d4 |..%.&...|....&...|
|00005860| b4 00 01 00 07 00 25 62 | 50 ff d8 d4 b4 00 25 62 |......%b|P.....%b|
|00005870| 50 ff d8 d4 b4 00 1f 0f | 26 ff d8 d4 b4 00 1f 0f |P.......|&.......|
|00005880| 26 ff cb 9d cb 00 25 62 | 50 ff cb 9d cb 00 25 e5 |&.....%b|P.....%.|
|00005890| 26 ff cc 80 68 00 25 e5 | 26 ff d7 f2 18 00 00 00 |&...h.%.|&.......|
|000058a0| 64 05 79 2c a4 00 00 00 | 00 00 15 00 00 00 41 02 |d.y,....|......A.|
|000058b0| 01 ff 00 ff 00 00 00 00 | 26 26 29 ff cb 9d cb 00 |........|&&).....|
|000058c0| 25 62 50 ff ce eb 86 00 | 00 00 03 00 25 62 50 ff |%bP.....|....%bP.|
|000058d0| cb 9d cb 00 00 00 00 00 | 00 01 b9 c2 a0 00 25 e5 |........|......%.|
|000058e0| 26 ff cd 44 a8 00 02 00 | 26 67 72 ff cd 44 a8 00 |&..D....|&gr..D..|
|000058f0| 25 62 50 ff ce eb 86 00 | 00 00 00 00 00 00 8a 00 |%bP.....|........|
|00005900| f6 00 00 00 64 05 79 2c | a4 00 00 00 00 00 15 00 |....d.y,|........|
|00005910| 00 00 41 02 01 ff 00 ff | 00 00 00 00 26 26 29 ff |..A.....|....&&).|
|00005920| ce eb 86 00 25 62 50 ff | d5 86 fa 00 00 00 03 00 |....%bP.|........|
|00005930| 25 62 50 ff ce eb 86 00 | 00 00 00 00 00 01 b9 c2 |%bP.....|........|
|00005940| a0 00 25 e5 26 ff d2 39 | 40 00 02 00 26 67 72 ff |..%.&..9|@...&gr.|
|00005950| d2 39 40 00 25 62 50 ff | d5 86 fa 00 00 00 00 00 |.9@.%bP.|........|
|00005960| 00 00 6a 00 83 00 00 00 | 64 05 79 2c a4 00 00 00 |..j.....|d.y,....|
|00005970| 00 00 15 00 00 00 41 02 | 01 ff 00 ff 00 00 00 00 |......A.|........|
|00005980| 26 26 29 ff d5 86 fa 00 | 25 62 50 ff d8 d4 b4 00 |&&).....|%bP.....|
|00005990| 00 00 03 00 25 62 50 ff | d5 86 fa 00 00 00 00 00 |....%bP.|........|
|000059a0| 00 01 b9 c2 a0 00 25 e5 | 26 ff d7 2d d7 00 02 00 |......%.|&..-....|
|000059b0| 26 67 72 ff d7 2d d7 00 | 25 62 50 ff d8 d4 b4 00 |&gr..-..|%bP.....|
|000059c0| 00 00 00 00 00 01 b8 bf | 90 00 00 00 2c 05 79 2c |........|....,.y,|
|000059d0| a4 00 00 00 00 00 02 00 | 00 00 41 02 01 ff 00 ff |........|..A.....|
|000059e0| 00 00 00 00 25 62 50 ff | d5 86 fa 00 1f 0f 26 ff |....%bP.|......&.|
|000059f0| d5 86 fa 0a 0c 00 00 00 | 2c 05 79 2c a4 00 00 00 |........|,.y,....|
|00005a00| 00 00 02 00 00 00 41 02 | 01 ff 00 ff 00 00 00 00 |......A.|........|
|00005a10| 1f 0f 26 ff ce eb 85 00 | 25 62 50 ff ce eb 85 0a |..&.....|%bP.....|
|00005a20| 0c 00 00 00 16 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a30| 00 00 00 01 aa 30 44 00 | 00 00 4a 05 79 2c a4 00 |.....0D.|..J.y,..|
|00005a40| 00 00 00 00 0b 00 00 00 | 40 02 01 ff 00 ff 00 00 |........|@.......|
|00005a50| 00 00 26 26 29 ff e4 83 | 1c 00 1f 0f 26 ff ef f4 |..&&)...|....&...|
|00005a60| cc 01 aa 68 6c 01 aa 6d | 9c 00 00 00 00 00 00 00 |...hl..m|........|
|00005a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a80| 00 00 00 00 56 05 79 2c | a4 00 00 00 00 00 05 00 |....V.y,|........|
|00005a90| 00 00 41 02 01 ff 00 ff | 00 00 00 00 25 e5 26 ff |..A.....|....%.&.|
|00005aa0| e4 83 1c 00 1f 0f 26 ff | ef f4 cc 00 01 00 05 00 |......&.|........|
|00005ab0| 25 e5 26 ff ef f4 cc 00 | 25 e5 26 ff ef f4 cc 00 |%.&.....|%.&.....|
|00005ac0| 1f 0f 26 ff ef f4 cc 00 | 1f 0f 26 ff e4 83 1c 00 |..&.....|..&.....|
|00005ad0| 25 e5 26 ff e4 83 1c 00 | 00 00 64 05 79 2c a4 00 |%.&.....|..d.y,..|
|00005ae0| 00 00 00 00 15 00 00 00 | 41 02 01 ff 00 ff 00 00 |........|A.......|
|00005af0| 00 00 26 26 29 ff e4 83 | 1c 00 25 62 50 ff ea 3b |..&&)...|..%bP..;|
|00005b00| f4 00 00 00 03 00 25 62 | 50 ff e4 83 1c 00 00 00 |......%b|P.......|
|00005b10| 00 00 00 01 b9 c2 a0 00 | 25 e5 26 ff e7 5f 88 00 |........|%.&.._..|
|00005b20| 02 00 26 67 72 ff e7 5f | 88 00 25 62 50 ff ea 3b |..&gr.._|..%bP..;|
|00005b30| f4 00 00 00 00 00 00 01 | b8 c1 b0 00 00 00 64 05 |........|......d.|
|00005b40| 79 2c a4 00 00 00 00 00 | 15 00 00 00 41 02 01 ff |y,......|....A...|
|00005b50| 00 ff 00 00 00 00 26 26 | 29 ff ea 3b f4 00 25 62 |......&&|)..;..%b|
|00005b60| 50 ff ef f4 cc 00 00 00 | 03 00 25 62 50 ff ea 3b |P.......|..%bP..;|
|00005b70| f4 00 00 00 00 00 00 01 | b9 c2 a0 00 25 e5 26 ff |........|....%.&.|
|00005b80| ed 18 60 00 02 00 26 67 | 72 ff ed 18 60 00 25 62 |..`...&g|r...`.%b|
|00005b90| 50 ff ef f4 cc 00 00 00 | 00 00 00 01 b8 c2 a0 00 |P.......|........|
|00005ba0| 00 00 2c 05 79 2c a4 00 | 00 00 00 00 02 00 00 00 |..,.y,..|........|
|00005bb0| 41 02 01 ff 00 ff 00 00 | 00 00 25 62 50 ff ea 3b |A.......|..%bP..;|
|00005bc0| f4 00 1f 0f 26 ff ea 3b | f4 0a 0c 00 00 00 16 00 |....&..;|........|
|00005bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 aa 59 |........|.......Y|
|00005be0| 14 00 00 00 4a 05 79 2c | a4 00 00 00 00 00 0b 00 |....J.y,|........|
|00005bf0| 00 00 40 02 01 ff 00 ff | 00 00 00 00 37 16 93 00 |..@.....|....7...|
|00005c00| 06 1e 43 00 25 ec 0b 00 | 19 f0 a0 01 aa 59 24 01 |..C.%...|.....Y$.|
|00005c10| aa 56 24 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.V$.....|........|
|00005c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 66 05 |........|......f.|
|00005c30| 79 2c a4 00 00 00 00 00 | 05 00 00 00 41 02 01 ff |y,......|....A...|
|00005c40| 00 ff 00 00 00 00 37 16 | 93 00 06 1e 43 00 25 ec |......7.|....C.%.|
|00005c50| 0b 00 19 f0 a0 00 01 00 | 07 00 2e 81 4f 00 19 f0 |........|....O...|
|00005c60| a0 00 2e 81 4f 00 19 f0 | a0 00 25 ec 0b 00 14 fc |....O...|..%.....|
|00005c70| 09 00 25 ec 0b 00 0b 12 | da 00 2e 81 4f 00 06 1e |..%.....|....O...|
|00005c80| 43 00 37 16 93 00 0b 12 | da 00 37 16 93 00 14 fc |C.7.....|..7.....|
|00005c90| 09 00 00 00 2a 05 79 2c | a4 00 00 00 00 00 04 00 |....*.y,|........|
|00005ca0| 00 00 41 02 01 ff 00 ff | 00 00 00 00 37 16 93 00 |..A.....|....7...|
|00005cb0| 07 72 2d 00 25 ec 0b 00 | 18 9c b5 00 00 00 2a 05 |.r-.%...|......*.|
|00005cc0| 79 2c a4 00 00 00 00 00 | 04 00 00 00 41 02 01 ff |y,......|....A...|
|00005cd0| 00 ff 00 00 00 00 33 5e | 6d 00 0b 2a 53 00 29 a4 |......3^|m..*S.).|
|00005ce0| 31 00 14 e4 8f 00 00 00 | 2a 05 79 2c a4 00 00 00 |1.......|*.y,....|
|00005cf0| 00 00 04 00 00 00 41 fe | 01 ff 00 ff 00 00 00 00 |......A.|........|
|00005d00| 34 3a 27 00 0a 4e 99 00 | 28 c8 77 00 15 c0 49 00 |4:'..N..|(.w...I.|
|00005d10| 00 00 16 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d20| 00 01 aa 33 30 00 00 00 | 4a 05 79 2c a4 00 00 00 |...30...|J.y,....|
|00005d30| 00 00 0b 00 00 00 40 02 | 01 ff 00 ff 00 00 00 00 |......@.|........|
|00005d40| 1e 7c 8d 00 06 1e 42 00 | 16 eb 53 00 19 f0 a0 01 |.|....B.|..S.....|
|00005d50| aa 33 50 01 aa 53 e8 00 | 00 00 00 00 00 00 00 00 |.3P..S..|........|
|00005d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d70| 00 00 76 05 79 2c a4 00 | 00 00 00 00 05 00 00 00 |..v.y,..|........|
|00005d80| 41 02 01 ff 00 ff 00 00 | 00 00 1e 1b 08 00 06 1e |A.......|........|
|00005d90| 42 00 17 4c d8 00 19 f0 | a0 00 01 00 09 00 1d 56 |B..L....|.......V|
|00005da0| c7 00 19 f0 a0 00 1d 56 | c7 00 19 f0 a0 00 18 11 |.......V|........|
|00005db0| 19 00 19 f0 a0 00 17 4c | d8 00 18 9c b5 00 17 4c |.......L|.......L|
|00005dc0| d8 00 07 72 2d 00 18 11 | 19 00 06 1e 42 00 1d 56 |...r-...|....B..V|
|00005dd0| c7 00 06 1e 42 00 1e 1b | 08 00 07 72 2d 00 1e 1b |....B...|...r-...|
|00005de0| 08 00 18 9c b5 00 00 00 | 64 05 79 2c a4 00 00 00 |........|d.y,....|
|00005df0| 00 00 15 00 00 00 41 02 | 01 ff 00 ff 00 00 00 00 |......A.|........|
|00005e00| 1e 7c 8d 00 06 1e 42 00 | 1d 56 c7 00 0b 12 da 00 |.|....B.|.V......|
|00005e10| 00 00 03 00 1d 56 c7 00 | 06 1e 42 00 00 00 00 00 |.....V..|..B.....|
|00005e20| 00 01 b9 c2 a0 00 1e 1b | 08 00 08 98 8e 00 02 00 |........|........|
|00005e30| 1e de 7a 00 08 98 8e 00 | 1d 56 c7 00 0b 12 da 00 |..z.....|.V......|
|00005e40| 00 00 00 00 00 7f ff 00 | 6a 00 00 00 64 05 79 2c |........|j...d.y,|
|00005e50| a4 00 00 00 00 00 15 00 | 00 00 41 02 01 ff 00 ff |........|..A.....|
|00005e60| 00 00 00 00 1e 7c 8d 00 | 0b 12 da 00 1d 56 c7 00 |.....|..|.....V..|
|00005e70| 14 fc 09 00 00 00 03 00 | 1d 56 c7 00 0b 12 da 00 |........|.V......|
|00005e80| 00 00 00 00 00 01 b9 c2 | a0 00 1e 1b 08 00 10 07 |........|........|
|00005e90| 71 00 02 00 1e de 7a 00 | 10 07 71 00 1d 56 c7 00 |q.....z.|..q..V..|
|00005ea0| 14 fc 09 00 00 00 00 00 | 00 00 8a 01 4a 00 00 00 |........|....J...|
|00005eb0| 64 05 79 2c a4 00 00 00 | 00 00 15 00 00 00 41 02 |d.y,....|......A.|
|00005ec0| 01 ff 00 ff 00 00 00 00 | 1e 7c 8d 00 14 fc 09 00 |........|.|......|
|00005ed0| 1d 56 c7 00 19 f0 a0 00 | 00 00 03 00 1d 56 c7 00 |.V......|.....V..|
|00005ee0| 14 fc 09 00 00 00 00 00 | 00 01 b9 c2 a0 00 1e 1b |........|........|
|00005ef0| 08 00 17 76 54 00 02 00 | 1e de 7a 00 17 76 54 00 |...vT...|..z..vT.|
|00005f00| 1d 56 c7 00 19 f0 a0 00 | 00 00 00 00 00 00 6c 00 |.V......|......l.|
|00005f10| 85 00 00 00 64 05 79 2c | a4 00 00 00 00 00 15 00 |....d.y,|........|
|00005f20| 00 00 41 02 01 ff 00 ff | 00 00 00 00 18 11 19 00 |..A.....|........|
|00005f30| 14 fc 09 00 16 eb 53 00 | 19 f0 a0 00 00 00 03 00 |......S.|........|
|00005f40| 18 11 19 00 19 f0 a0 00 | 00 00 00 00 00 01 b9 c2 |........|........|
|00005f50| a0 00 17 4c d8 00 17 76 | 54 00 02 00 16 89 66 00 |...L...v|T.....f.|
|00005f60| 17 76 54 00 18 11 19 00 | 14 fc 09 00 00 00 00 00 |.vT.....|........|
|00005f70| 00 01 b7 a1 50 00 00 00 | 64 05 79 2c a4 00 00 00 |....P...|d.y,....|
|00005f80| 00 00 15 00 00 00 41 02 | 01 ff 00 ff 00 00 00 00 |......A.|........|
|00005f90| 18 11 19 00 0b 12 da 00 | 16 eb 53 00 14 fc 09 00 |........|..S.....|
|00005fa0| 00 00 03 00 18 11 19 00 | 14 fc 09 00 00 00 00 00 |........|........|
|00005fb0| 00 01 b9 c2 a0 00 17 4c | d8 00 10 07 71 00 02 00 |.......L|....q...|
|00005fc0| 16 89 66 00 10 07 71 00 | 18 11 19 00 0b 12 da 00 |..f...q.|........|
|00005fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 64 05 79 2c |........|....d.y,|
|00005fe0| a4 00 00 00 00 00 15 00 | 00 00 41 02 01 ff 00 ff |........|..A.....|
|00005ff0| 00 00 00 00 18 11 19 00 | 06 1e 42 00 16 eb 53 00 |........|..B...S.|
|00006000| 0b 12 da 00 00 00 03 00 | 18 11 19 00 0b 12 da 00 |........|........|
|00006010| 00 00 00 00 00 01 b9 c2 | a0 00 17 4c d8 00 08 98 |........|...L....|
|00006020| 8e 00 02 00 16 89 66 00 | 08 98 8e 00 18 11 19 00 |......f.|........|
|00006030| 06 1e 42 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..B.....|........|
|00006040| 2c 05 79 2c a4 00 00 00 | 00 00 02 00 00 00 41 02 |,.y,....|......A.|
|00006050| 01 ff 00 ff 00 00 00 00 | 18 11 19 00 0b 12 da 00 |........|........|
|00006060| 1d 56 c7 00 0b 12 da 0a | 0c 00 00 00 2c 05 79 2c |.V......|....,.y,|
|00006070| a4 00 00 00 00 00 02 00 | 00 00 41 02 01 ff 00 ff |........|..A.....|
|00006080| 00 00 00 00 18 11 19 00 | 14 fc 09 00 1d 56 c7 00 |........|.....V..|
|00006090| 14 fc 09 0a 0c 00 00 00 | 16 00 00 00 00 00 00 00 |........|........|
|000060a0| 00 00 00 00 00 00 00 01 | aa 69 10 00 00 00 4a 05 |........|.i....J.|
|000060b0| 79 2c a4 00 00 00 00 00 | 0b 00 00 00 40 02 01 ff |y,......|....@...|
|000060c0| 00 ff 00 00 00 00 1e 7c | 8d 00 23 57 4a 00 16 eb |.......||..#WJ...|
|000060d0| 53 00 34 81 d2 01 aa 6f | d4 01 aa 6f 3c 00 00 00 |S.4....o|...o<...|
|000060e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060f0| 00 00 00 00 00 00 00 00 | 56 05 79 2c a4 00 00 00 |........|V.y,....|
|00006100| 00 00 05 00 00 00 41 02 | 01 ff 00 ff 00 00 00 00 |......A.|........|
|00006110| 1e 1b 08 00 23 57 4a 00 | 17 4c d8 00 34 81 d2 00 |....#WJ.|.L..4...|
|00006120| 01 00 05 00 1e 1b 08 00 | 34 81 d2 00 1e 1b 08 00 |........|4.......|
|00006130| 34 81 d2 00 17 4c d8 00 | 34 81 d2 00 17 4c d8 00 |4....L..|4....L..|
|00006140| 23 57 4a 00 1e 1b 08 00 | 23 57 4a 00 00 00 64 05 |#WJ.....|#WJ...d.|
|00006150| 79 2c a4 00 00 00 00 00 | 15 00 00 00 41 02 01 ff |y,......|....A...|
|00006160| 00 ff 00 00 00 00 1e 7c | 8d 00 23 57 4a 00 1d 56 |.......||..#WJ..V|
|00006170| c7 00 2b ec 8e 00 00 00 | 03 00 1d 56 c7 00 23 57 |..+.....|...V..#W|
|00006180| 4a 00 00 00 00 00 00 01 | b9 c2 a0 00 1e 1b 08 00 |J.......|........|
|00006190| 27 a1 ec 00 02 00 1e de | 7a 00 27 a1 ec 00 1d 56 |'.......|z.'....V|
|000061a0| c7 00 2b ec 8e 00 00 00 | 00 00 00 00 00 00 00 00 |..+.....|........|
|000061b0| 00 00 64 05 79 2c a4 00 | 00 00 00 00 15 00 00 00 |..d.y,..|........|
|000061c0| 41 02 01 ff 00 ff 00 00 | 00 00 1e 7c 8d 00 2b ec |A.......|...|..+.|
|000061d0| 8e 00 1d 56 c7 00 34 81 | d2 00 00 00 03 00 1d 56 |...V..4.|.......V|
|000061e0| c7 00 2b ec 8e 00 00 00 | 00 00 00 01 b9 c2 a0 00 |..+.....|........|
|000061f0| 1e 1b 08 00 30 37 30 00 | 02 00 1e de 7a 00 30 37 |....070.|....z.07|
|00006200| 30 00 1d 56 c7 00 34 81 | d2 00 00 00 00 00 00 00 |0..V..4.|........|
|00006210| 00 00 00 00 00 00 64 05 | 79 2c a4 00 00 00 00 00 |......d.|y,......|
|00006220| 15 00 00 00 41 02 01 ff | 00 ff 00 00 00 00 18 11 |....A...|........|
|00006230| 19 00 2b ec 8e 00 16 eb | 53 00 34 81 d2 00 00 00 |..+.....|S.4.....|
|00006240| 03 00 18 11 19 00 34 81 | d2 00 00 00 00 00 00 01 |......4.|........|
|00006250| b9 c2 a0 00 17 4c d8 00 | 30 37 30 00 02 00 16 89 |.....L..|070.....|
|00006260| 66 00 30 37 30 00 18 11 | 19 00 2b ec 8e 00 00 00 |f.070...|..+.....|
|00006270| 00 00 00 00 00 00 00 00 | 00 00 64 05 79 2c a4 00 |........|..d.y,..|
|00006280| 00 00 00 00 15 00 00 00 | 41 02 01 ff 00 ff 00 00 |........|A.......|
|00006290| 00 00 18 11 19 00 23 57 | 4a 00 16 eb 53 00 2b ec |......#W|J...S.+.|
|000062a0| 8e 00 00 00 03 00 18 11 | 19 00 2b ec 8e 00 00 00 |........|..+.....|
|000062b0| 00 00 00 01 b9 c2 a0 00 | 17 4c d8 00 27 a1 ec 00 |........|.L..'...|
|000062c0| 02 00 16 89 66 00 27 a1 | ec 00 18 11 19 00 23 57 |....f.'.|......#W|
|000062d0| 4a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 2c 05 |J.......|......,.|
|000062e0| 79 2c a4 00 00 00 00 00 | 02 00 00 00 41 02 01 ff |y,......|....A...|
|000062f0| 00 ff 00 00 00 00 18 11 | 19 00 2b ec 8e 00 1d 56 |........|..+....V|
|00006300| c7 00 2b ec 8e 0a 0c 00 | 00 00 16 00 00 00 00 00 |..+.....|........|
|00006310| 00 00 00 00 00 00 00 00 | 00 01 a9 ce 30 00 00 00 |........|....0...|
|00006320| 4a 05 79 2c a4 00 00 00 | 00 00 0b 00 00 00 40 02 |J.y,....|......@.|
|00006330| 01 ff 00 ff 00 00 00 00 | 0e 4e 1c 00 12 92 cc ff |........|.N......|
|00006340| f7 6a bc 00 2b 3b 65 01 | aa 70 a4 01 aa 6f ac 00 |.j..+;e.|.p...o..|
|00006350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006360| 00 00 00 00 00 00 00 00 | 00 00 2a 05 79 2c a4 00 |........|..*.y,..|
|00006370| 00 00 00 00 04 00 00 00 | 41 02 01 ff 00 ff 00 00 |........|A.......|
|00006380| 00 00 0e 4e 1c 00 14 39 | a9 ff f7 6a bc 00 29 94 |...N...9|...j..).|
|00006390| 88 00 00 00 66 05 79 2c | a4 00 00 00 00 00 05 00 |....f.y,|........|
|000063a0| 00 00 41 02 01 ff 00 ff | 00 00 00 00 0e 4e 1c 00 |..A.....|.....N..|
|000063b0| 12 92 cc ff f7 6a bc 00 | 2b 3b 65 00 01 00 07 00 |.....j..|+;e.....|
|000063c0| 02 dc 6c 00 2b 3b 65 00 | 02 dc 6c 00 2b 3b 65 ff |..l.+;e.|..l.+;e.|
|000063d0| f7 6a bc 00 25 11 3f ff | f7 6a bc 00 18 bc f2 00 |.j..%.?.|.j......|
|000063e0| 02 dc 6c 00 12 92 cc 00 | 0e 4e 1c 00 18 bc f2 00 |..l.....|.N......|
|000063f0| 0e 4e 1c 00 25 11 3f 00 | 00 00 16 00 00 00 00 00 |.N..%.?.|........|
+--------+-------------------------+-------------------------+--------+--------+